Hãy viết chương trình tìm số lượng bội của N sao cho bội của N không vượt quá giá trị của X. Ví dụ: N=2, X=7. Số lượng bội của N là 3 (vì có 2, 4 và 6 là bội của N).

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

program timBoi;

uses crt;

var n, i, x, d: word;

begin

  clrscr;

  write('Nhap N va X: '); readln(n, x);

  d:=1;

  for i:=n+1 to x do if i mod n = 0

        then inc(d);

  write('so luong boi can tim la ', d);

  readln;

end.