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

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

Viết một bình luận