Question

Viết chương trình nhập n số nguyên từ bàn phím. Đếm các số vừa chia hết cho 2 vừa chia hết cho 3. In kết quả ra màn hình các số thỏa mãn điều kiện trên.

program chia_het;

uses crt;

var n,i:integer;

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

begin

clrscr;

write('Nhap so phan tu co trong day:');readln(n);

for i:=1 to n do begin

writeln('Nhap phan tu thu ',i,' cua day:');readln(a[i]);

end;

for i:=1 to n do begin

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

then writeln('Phan tu chia het cho 2 va 3 la:',a[i])

end;

readln

end.

Chương trình trên đúng k ạ

Answer 1

chắc có hoặc ko?

Answer 2

Answer 3

Chương trình chạy được , đúng nha bạn