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 ?
2 câu trả lời
uses crt;
var i, n, k, d : integer;
begin
clrscr;
write('Nhap so nguyen n va k : '); readln(n, k);
d := 0;
for i := 1 to n do
if i mod k = 0 then d := d + 1;
writeln('co ', d ,' so chia het cho k');
readln
end.
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.
