Progam tinhtong ;

Uses CRT;

Var i,n : integer;

tong: real;

Begin

Clrscr;

write('cho so tu nhien n:');

Readln(n);

tong:=0;

i:=1;

while i<= n do

Begin

tong= tong+ i;

i:=i+1;

End;

writeln(' Tong can tim la: ', tong);

Readln;

End.

$#Trumtinhoc$

🔻 Sửa lỗi :

1. tong = 0;

⇒ tong := 0;

2. Uses CRT

⇒ Uses CRT;

3. Write(cho so tu nhien n:); Readln(‘n’);

⇒ Write('Cho so tu nhien n : '); Readln(n);

4. i : = i + 1

⇒ i := i + 1;

5. tong = tong + i;

⇒ tong := tong + 1;

6. Writeln('Tong can tim la : ', ‘tong’);

⇒ Writeln('Tong can tim la : ', tong);

7. End

⇒ End;

8. Var i, : integer; tong = real;

⇒ Var i, n, tong : integer;

🔻 Sắp xếp :

Program tinhtong;

Uses crt;

Var i, n, tong : integer;

Begin

Clrscr;

Write('Cho so tu nhien n : '); Readln(n);

tong := 0; i := 1;

While i <= n do

    Begin

        tong := tong + i;

        i := i + 1;

    End;

Writeln('Tong can tim la : ', tong);

Readln;

End.