program bai_giai;
uses crt;
var n:integer;
a,b,c,d:byte;
begin
clrscr;
write('Nhap N: '); readln(n);
d:=n mod 10; n:=n div 10;
c:=n mod 10; n:=n div 10;
b:=n mod 10; n:=n div 10;
a:=n;
if (a+b=c+d) then write('YES') else write('NO');
readln;
end.
d là chữ số cuối cùng, c là chữ số thứ 3, b là chữ số thứ 2, a là chữ số thứ nhất.
lấy chữ số cuối cùng là mod 10;
Và mỗi số luôn lấy số cuối cùng nên phải n div 10 để lấy số trở về trước.
Ví dụ: n=3205
d:=n mod 10=5; n:=n div 10=320
c:=n mod 10=0; n:=n div 10=32
b:=n mod 10=2; n:=n div 10=3
a:=n=3;
Từ đó ta có a+b=3+2=5; c+d=0+5=5
`=>` "YES"