Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
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.

Minh Lệ
8 tháng 5 2023 lúc 19:58

         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.


Các câu hỏi tương tự
Bình Phan
Xem chi tiết
Bình Phan
Xem chi tiết
Nguyễn Thái Phương Thảo
Xem chi tiết
Nguyễn Thái Phương Thảo
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Nguyễn Bảo Nam
Xem chi tiết
Trần Nguyễn Hoàng Nam
Xem chi tiết