Question

[Gãy Cánh GST]

Tìm và sửa lỗi trong chương trình pascal sau:

               Uses crt;

               Var i, n, t : integer;

               Begin

        clrscr;

        write('Nhap so n = '); readln(n);

        i := l; t := 0;

        while i <= n do 

begin 

      t := t + i;

      i := i + l;

      write('Tong = ', t);

             Readln;

             end.

Answer 1

[Minh Lệ]

         Uses crt;

               Var i, n, t : integer;

               Begin

        clrscr;

        write('Nhap so n = '); readln(n);

        i := l; t := 0;   | sửa: i:=1; t:=0;

        while i <= n do 

begin 

      t := t + i;

      i := i + l;       | Sửa: i:=i+1;

-> Thiếu. Thêm: End;

      write('Tong = ', t);

             Readln;

             end.