Nhập vào một dãy và số k , cho biết có bao nhiêu số chia hết cho k ?
1 câu trả lời
Program tuyban;
uses crt; Var a: array[1..100] of integer;
i,D,k,n : integer;
Begin
clrscr;
D:=0;
writeln(' nhap so so trong day so',n);
readln( n);
For i:=1 to n do
Begin
write('a[',i,']') ;
readln(a[i] );
end;
writeln('nhap k',k) ; readln(k);
For i:=1 to n do
begin
if a[i] mod k= 0 then D:=D+1;
writeln('so so chia het cho k la',D):
end;
readln
End.
