Инвертированное к некоторому натуральному числу X - это число, в котором все цифры исходного числа Х заптсаны в обратном порядке, если у результата есть лидирующие нули, они отбрасываются. Обозначим такое число Х1. Наришите про...
Инвертированное к некоторому натуральному числу X - это число, в котором все цифры исходного числа Х заптсаны в обратном порядке, если у результата есть лидирующие нули, они отбрасываются. Обозначим такое число Х1. Наришите прогрпмму которая сравнивает Х и Х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',x1) else
writeln(x1,'=',x);
end.
Пример ввода:
1230
Пример вывода:
1230>321
Не нашли ответ?
Похожие вопросы