Tỉnh tổng từ 1 đên n bằng chương trình Pascal

Tỉnh tổng từ 1 đên n bằng chương trình Pascal

0 bình luận về “Tỉnh tổng từ 1 đên n bằng chương trình Pascal”

  1. Program Hotboy;

    Uses crt;

    Var S,i,n: integer;

    Begin

    Clrscr;

    S:=0;

    Write(‘nhap n’);

    Readln(n);

    For i:=1 to n do

    S:=S+i;

    Write(‘tong la’,S);

    Readln

    End.

    Bình luận
  2. Program TinhTong;

    Uses crt;

    Var S,i,n:Integer;

    BEGIN

                     Write( ‘ Nhap so n:’ );

                     Readln( n );

                     S: = 0;

                     For i:=1 to n do

                                        S:=S + i;

                     Writeln( ‘Tong = ’, S);

                     Readln;

    END.

    Bình luận

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