Question

Giúp mk với ạ, mình đang cần gấp. Xin cảm ơn. 

Answer 1

Dòng 3: Sai -> Sửa: var Y: longint; (cái này nếu sửa đúng là var Y: integer; nhưng nếu dùng như vậy biến Y sẽ bị tràn sẽ lớn hơn giá trị tối đa của integer gây ra lỗi cho chương trình khi chạy)

Dòng 4: Sai -> sửa: x: integer;

Dòng 6: Đúng -> Bổ sung: x:=100; (theo mình quan sát được nó nằm ở phần khai báo)

Dòng 10: Đúng -> Sửa: x:=x+10; (cái này có thể sửa hoặc không vì như thế nó cũng không sai)

Dòng 11: Sai -> Sửa: end;

Các dòng còn lại đều đúng và không có vấn đề để sửa.

Answer 2

Bài chính xác như vầy, em tự sửa lại trên giấy nhé!

Program baiso2;

Uses crt;

Var x,y:integer;

Begin

x:=100;

y:=0;

While x<1000 do

Begin

y:=y+x;

x:=x+10;

End;

Readln;

End.