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

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

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

    

   Trả lời

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

   Trả lời