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