K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

6 tháng 3 2023

n = int(input('Nhập số n: '))

sum = 0

i = 1

while i <= n:

      if i % 2 == 0:

            sum += i

            print(i, end=' ')

      i += 1

print()

print('Tổng các số chẵn từ 1 đến n là:', sum)

6 tháng 3 2023

n = int(input('Nhập số n: '))

sum = 0

i = 1

while i <= n:

      if i % 2 == 0:

            sum += i

            print(i, end=' ')

      i += 1

print()

print('Tổng các số chẵn từ 1 đến n là:', sum)

Bài 2: 

#include <bits/stdc++.h>

using namespace std;

double x,y,z;

int main()

{

cin>>x>>y>>z;

cout<<max(x,max(y,z));

return 0;

}

10 tháng 4 2021

a, Xác định bài toán:

+Input: Dãy số a1,….,an và (0,5đ)

+Output: Số lượng số hạng trong dãy số a1,….,an có giá trị bằng 9 (0,5đ)

b, Thuật toán:

Bước 1.Nhập N và dãy số a1,….,an;

Bước 2. i ←1; n ← 0; (0,25đ)

Bước 3. Nếu aithì n ←n+1;

Bước 4. i → i+1 (0,25đ)

Bước 5. Nếu i > N thì thông báo số lượng số hạng bằng k trong dãy đã cho là n và kết thúc; (0,25đ)

Bước 6. Quay lại bước 3.

Bước 1: Nhập n và nhập dãy số

Bước 2: dem←0; i←1;

Bước 3: Nếu a[i] mod 3=0 và a[i] mod 5=0 thì dem←dem+1;

i←i+1;

Bước 4: Nếu i<=n thì quay lại bước 3

Bước 5: xuất dem

Bước 6: Kết thúc

21 tháng 1 2018

Đáp án B

5 tháng 4 2023

program Dem_Chia_Het;
var s, i: longint;
begin
  s := 0;
  for i := 10 to 2000 do
  begin
    if i mod 297 = 0 then // Kiểm tra chia hết cho 9, 3, 11
      s := s + 1;
  end;
  writeln('So luong cac so chia het cho 9, 3 va 11 la: ', s);
end.

 

6 tháng 4 2023

count = 0

for i in range(10, 2001):

     if i % 3 == 0 and i % 9 == 0 and i % 11 == 0:

          count += 1

print(count)

4 tháng 5 2023

var s:real;

i,n,t:integer;

begin

repeat

write('Nhap n > 0 va n chia het cho 5 ');readln(n);

until (n > 0) and (n mod 5 = 0);

t:=round(n/5);

s:=1;

for i:=1 to t do

s:=s+1/(5*i);

write('A = ',s:10:2);

readln

end.

 

16 tháng 11 2021

Test 1: 

a=2; b=4

=>-2

Test 2: 

a=0; b=0;

=>Vô số nghiệm

9 tháng 2 2022

Tham khảo:

* Lặp tiến :

uses crt;

var i, n, P : longint;

begin

clrscr;

P := 1;

write('nhap so n : '); readln(n);

for i := 1 to n do P := P * i;

writeln(n,'! = ', P);

readln

end.

* Lặp lùi :

uses crt;

var i, n, P : longint;

begin

clrscr;

P := 1;

write('nhap so n : '); readln(n);

for i := n downto 1 do P := P * i;

writeln(n,'! = ', P);

readln

end.