Программирование логических выражений. Написать программу в Паскале. Данное четырёхзначное число читается одинаково слева направо и справа налево.

Question

Программирование логических выражений. Написать программу в Паскале. Данное четырёхзначное число читается одинаково слева направо и справа налево.

Гость

Ответ(ы) на вопрос:

Accepted Answer

var a,b,c:integer; begin read(a); b:=a mod 100; a:=a div 100; c:=b div 10; b:=b mod 10; b:=b*10+c; if a=b then write ('true'); if a<>b then write ('false'); end.