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

0 bình luận về “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”

1. 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.

   Bình luận