Nhập số nguyên dương n và số k đếm các số nguyên trong khoảng từ 1 đến n ,các giá trị chia hết cho k ?

0 bình luận về “Nhập số nguyên dương n và số k đếm các số nguyên trong khoảng từ 1 đến n ,các giá trị chia hết cho k ?”

1. program az;

   uses Crt;

   var i,n,dem,k : longint;

   begin

   clrscr;

   dem := 0;

   Write(‘Nhap n = ‘); readln(n);

   Write(‘Nhap k = ‘); readln(k);

   For i:= 1 to n do

   begin

   If (i mod k = 0) then dem := dem + 1;

   end;

   Write(‘Co ‘,dem,’ so chia het cho k ‘ );

   readln

   end.

   Bình luận