Question

Vì sao chương trình sau dịch thành công nhưng khi chạy lại bị lỗi:
var i,tong byte;
begin
while i<25 do
begin
tong=tong+i
end.

Answer 1

Vì kiểu byte chỉ chứa được tối đa 64 cần đổi biến ' Tong ' thành kiểu dữ liệu integer hay longint

Answer 2

Bài này bị lỗi sau:

1) tong=tong+i => sửa: tong:=tong+i;

2) thiếu lệnh "end;" trước lệnh end.

3) thiếu lệnh làm thay đổi giá trị của i nên bài này bị lặp vô hạn