tính tổng các số chia hết cho a và b trong khoảng từ 1 đến n bằng pascal khác nhau nhé câu nãy là a hoặc b

0 bình luận về “tính tổng các số chia hết cho a và b trong khoảng từ 1 đến n bằng pascal khác nhau nhé câu nãy là a hoặc b”

1. program tong_chiahet;

   uses crt;

   var n,i,t,a,b:integer;

   begin

          clrscr;

          write(‘Nhap n: ‘);  readln(n);

          write(‘Nhap a: ‘);   readln(a);

          write(‘Nhap b: ‘);  readln(b);

          t:=0;

          for i:=1 to n do

                 if (i mod a=0) and (i mod b=0) then t:=t+i;

          write(‘Tong chia het cho ‘,a,’ va ‘,b,’ tu 1 den ‘,n,’ la: ‘,t);

          readln;

   end.

   Bình luận