Question

Viết chương trình nhập vào tối đa 150 số nguyên . đếm xem trong dãy số trên có bao nhiêu số chẵn và chia hết cho 3 , ghi giá trị số đó ra màn hình mn giúp mk vs chiều nay mk nộp

Answer 1

Program hotrotinhoc;

var d,i,n: integer;

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

begin

readln(n);

for i:=1 to n do readln(a[i]);

d:=0;

for i:=1 to n do if (a[i] mod 2) and (a[i] mod 3=0) then inc(d);

write(d);

readln

end.

Answer 2

uses crt;
var a:array[1..150]of integer;
dem,n,i:integer;
begin
clrscr;
write('n='); readln(n);
if (0<n) and (n<=150) then
begin
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if (a[i] mod 2=0) and (a[i] mod 3=0) then inc(dem);
writeln('so cac so chan chia het cho 3 trong day la: ',dem);
end
else writeln('vui long nhap lai');
readln;
end.