Cho n và dãy n số a1,a2,…,an . Tính số lượng các số nguyên chia hết cho k.giúp mình với chuẩn bị thi rồi
Cho n và dãy n số a1,a2,…,an . Tính số lượng các số nguyên chia hết cho k.giúp mình với chuẩn bị thi rồi
By Josie
By Josie
Cho n và dãy n số a1,a2,…,an . Tính số lượng các số nguyên chia hết cho k.giúp mình với chuẩn bị thi rồi
program az;
uses Crt;
var i,n,dem,k,a : longint;
begin
clrscr;
dem := 0;
Write(‘Nhap n = ‘); readln(n);
Write(‘Nhap k = ‘); readln(k);
For i:=1 to n do
begin
Write(‘Nhap phan tu thu ‘,i,’ la : ‘); readln(a);
If (a mod k = 0) then dem := dem + 1;
end;
Write(‘Co ‘,dem,’ so chia het cho ‘,k);
readln
end.