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.

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)

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

17 tháng 8 2021

Program HOC24;

var d,i: integer;

begin

d:=0;

for i:=20 to 1000 do

if (i mod 2=0) and (i mod 3=0) then d:=d+1;

write(d);

readln

end.

9 tháng 10 2019

uses crt;
Var a:array[1..100000] of longint;
i,n,d:longint;
Begin
clrscr;
write('Nhap n: '); readln(n);
For i:=1 to n do
Begin
Write('A[',i,'] = '); Readln(A[i]);
end;
for i:=1 to n do
if (a[i] mod 2=0) and (a[i] mod 3=0) then inc(d);
write('Co ',d,' so vua chia het cho 2 vua chia het cho 3');
readln
end.

9 tháng 10 2019

Program hotrotinhoc;

var tb: longint;

tbc: real;

i,n,d: integer;

a: array[1..32000] of integer;

begin

readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

d:=0;

for i:=1 to n do

if (a[i] mod 3=0) and (a[i] mod 5=0) then

begin

inc(d);

tb:=tb+a[i];

end;

tbc:=tb/d;

write(tbc:2:2);

readln

end.

14 tháng 3 2023

so_am = 0

so_duong = 0

while True:

     n = int(input("Nhap vao mot so nguyen: "))

     if n == 0:

          break

     elif n < 0:

          so_am += 1

     else:

          so_duong += 1

print("So am: ", so_am)

print("So duong: ", so_duong)

uses crt;

var n,i,dem:integer;

begin

clrscr;

readln(n);

dem:=0;

for i:=1 to n do

if i mod 7=0 then inc(dem);

write(dem);

readln;

end.

25 tháng 4 2023

n = int(input("Nhap vao mot so n: "))

tong = 0

for i in range(1, n):

      if i % 3 == 0:

            tong += i

print("Tong cac so chia het cho 3 tu 1 den", n-1, "la:", tong)