Question

[Phan Thị ánh Tuyết]

Tìm và sửa lỗi(nếu có) trong đoạn chương trình.

Ví dụ:

Program 2hocki;         ->hocki2;          

Uses crt                       ->;

Var x, y, s= real;         ->x, y, s: real;

Begin

Clrscr;

Write(‘nhap x= ’);

 read(x);

Write(‘nhap y=’);       ->in tb: nhap y=

read(y);                       -> nhập gt cho y từ bàn phím

S=x+y;                        -> thêm :=

If (x+y =10) then write(‘hop le’) else write(‘ko hop le’);

Readln;

End.

Answer 1

[Nguyễn Lê Phước Thịnh]

bạn sửa lỗi hết rồi bạn