tính tổng các số chia hết cho a hoặc b trong khoảng từ 1 đến n bằng pascal

0 bình luận về “tính tổng các số chia hết cho a hoặc b trong khoảng từ 1 đến n bằng pascal”

1. uses crt;

   var i,n,a,s: integer;

   begin

   clrscr;

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

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

   for i:=1 to n do

   if n mod a=0 then s:=s+i;

   writeln (‘tong la: ‘,s);

   readln;

   end.

   Bình luận

2. Program TinhTong;

   Uses crt;

   Var S,i,n:Integer;                            = Khai bao bien su dung

   BEGIN

   Write( ‘ Nhap so n:’ );                                     =Thong bao nhap lieu

   Readln( n );                                           =Nhap gtri N, (voi &N la lay d/c bien N)

   S: = 0;                                            = Khoi gan gia tri ban dau cho S

   For i:=1 to n do                                   = Lap voi moi i co gia tri tu 1 den N

   S:=S + i;                                                  =Tinh tong cong don i vao S

   Writeln( ‘Tong = ’, S);                              = Xuat ket qua tong S ra man hinh

   Readln;

   END.

   Bình luận