Question

Cho đoạn chương trình dưới đây. Hãy chỉ ra những lỗi sai và sửa lại cho đúng.

Program tinhtong.

Var N, i:=integer

Begin

Write(‘nhap so N =’)

Readln(N)

S=0

                        For i= 1 to N do S= S+i

                        Writeln(‘Tong cua ‘,N,’ so tu nhien dau tien S=’,S)

                        Readln

End

Answer 1

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do t:=t+i;

writeln(t);

readln;

end.