*dùng for nhưng chạy sẽ lâu
program boi_so;
uses crt;
var n,k,i,d:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
write('Nhap k: '); readln(k);
d:=0;
for i:=n to k do
if k mod n=0 then d:=d+1;
write('So luong boi la: ',d);
readln;
end.
*dùng while...do chạy nhanh hơn
program boi_so;
uses crt;
var n,k,i,d:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
write('Nhap k: '); readln(k);
i:=n; d:=0;
while i<=k do
begin
d:=d+1;
i:=i+n;
end;
write('So luong boi la: ',d);
readln;
end.