Программирование логических выражений.
Написать программу в Паскале.
Данное четырёхзначное число читается одинаково слева направо и справа налево.
Написать программу в Паскале.
Данное четырёхзначное число читается одинаково слева направо и справа налево.
Answers & Comments
Verified 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.