Tỉnh tổng từ 1 đên n bằng chương trình Pascal 06/08/2021 Bởi Allison Tỉnh tổng từ 1 đên n bằng chương trình Pascal
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
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
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.
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.