Question

Viết chương trình nhập vào một mảng n số tự nhiên :

-In ra màn hình các số tự nhiên chia hết cho 3 và 9 ?

-Có bao nhiêu số chia hết cho 3 và 9 ?

Answer 1

Chương trình:

uses crt;

var n,d:integer;

a:array [1..1000] of longint;

i:longint;

begin

clrscr;

write('Nhap n=');

readln(n);

for i:=1 to n do

begin

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

readln(a[i]);

end;

writeln('Cac so chia het cho 3 va 9 la:');

for i:=1 to n do

begin

if (a[i] mod 3 = 0) and (a[i] mod 9 = 0) then write(a[i],' ; ');

inc(d);

end;

writeln('Tong cong co ',dem,' so chi het cho 3,9)';

readln;

end.