nhập từ bàn phím giá trị 2 biến x,y,sau đó nhập kết quả là tổng của x và y kiểm tra nếu kết quả =x+y ,in ra màn hình thông báo ''hoan hô bạn đoán đúng " ,ngược lại in thông báo "rất tiếc bạn đoán sai"

2 câu trả lời

program bai_giai;
uses crt;
var x,y,kq:longint;
begin
clrscr;
write('nhap x, y:');readln(x,y);
write('nhap ket qua phep tinh x+y');readln(kq);
if(x+y=kq)then write('hoan ho ban dung roi')else write('rat tiec ban doan sai');
readln
end.

var x,y,t:longint;
begin
read(x,y);
t:=x+y;
write('nhap tong x,y');
readln(t);
if (x+y=t) then write('hoan ho ban doan dung') else write('rat tiec ban doan sai');
readln;
end.