Tin học Nhập vào một dãy và số k , cho biết có bao nhiêu số chia hết cho k ? 28/08/2021 By Faith Nhập vào một dãy và số k , cho biết có bao nhiêu số chia hết cho k ?
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. Reply
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.