Инвертированное к некоторому натуральному числу X - это число, в котором все цифры исходного числа Х заптсаны в обратном порядке, если у результата есть лидирующие нули, они отбрасываются. Обозначим такое число Х1. Наришите прогрпмму которая сравнивает Х и Х1
Answers & Comments
Verified answer
//PascalABC.NET 3.2 сборка 1318Var
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