Question

Инвертированное к некоторому натуральному числу X - это число, в котором все цифры исходного числа Х заптсаны в обратном порядке, если у результата есть лидирующие нули, они отбрасываются. Обозначим такое число Х1. Наришите прогрпмму которая сравнивает Х и Х1

Answer 1

//PascalABC.NET 3.2 сборка 1318

Var
  x,x1,i:integer;
  xs:string;
  c:char;
begin
readln(x);
xs:=inttostr(x);
for i:=1 to length(xs) div 2 do
  begin
    c:=xs[i];
    xs[i]:=xs[length(xs)-i+1];
    xs[length(xs)-i+1]:=c;
  end;
x1:=strtoint(xs);
if x1>x then writeln(x1,'>',x) else
  if x1<x then writeln(x,'>',x1) else
    writeln(x1,'=',x);
end.

Пример ввода:
1230
Пример вывода:
1230>321