Question

Viết chương trình tính và in ra giá trị biến s biết s = 1 + 2 + 3 + ... + N trong đó N là số nguyên nhập từ bàn phím

Answer 1

Var i,S,n: longint;

Begin

Readln(n);

For i:=1 to n do S:=S+i

Write(S);

Readln

End.

Answer 2

program Tinh_tong;

Var n: integer;
s: longint;
BEGIN
repeat
write( 'Nhap n: '); readln(n);
until (n>=0);
s:=0;
for i:=1 to n do
s:=s+i;
write('Tong cac so tu 1 toi ', n,' =', s);
readln
END.