Cho dãy A gồm n số nguyên a1,a2,a3,…an .Hãy cho biết trong dãy A có bao nhiêu số chia hết cho 2 và 3
Cho dãy A gồm n số nguyên a1,a2,a3,…an .Hãy cho biết trong dãy A có bao nhiêu số chia hết cho 2 và 3
By Hadley
By Hadley
Cho dãy A gồm n số nguyên a1,a2,a3,…an .Hãy cho biết trong dãy A có bao nhiêu số chia hết cho 2 và 3
Uses crt;
Var a:array[1..1000000] of longint;
i, n, sch: integer;
Begin
Clrscr;
Write(‘Nhap n = ‘); readln(n);
For i:=1 to n do
Begin
Write(‘a[‘,i,’]=’);
Readln(a[i]);
End;
sch:=0;
For i:=1 to n do if (a[i] mod 2 = 0) and (a[i] mod 3 = 0) then inc(sch);
Writeln(‘Co ‘,sch,’ so chia het cho 2 va 3′);
Readln
End.
program ct;
uses crt;
var n,i,d:integer;
A:array[1..100] of integer;
begin
clrscr;
write(‘nhap n=’);readln(n);
for i:=1 to n do
begin
write(‘nhap mang a[‘,i,’]=’);readln(a[i]);
end;
d:=0;
for i:=1 to n do
if (a[i] mod 2=0) and (a[i] mod 3=0) then d:=d+1;
writeln(‘co’,d,’ so chia het cho 2 va 3′);
readln
end.