Делать через паскаль! дано пятизначное число. распаковать число на цифры. собрать новое число, у которого цифры расположены в обратном порядке. делать с div и mod
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018 Внимание! Если программа не работает, обновите версию!
begin var n:=Abs(ReadInteger('n=')); if not n.Between(10000,99999) then begin Writeln('Число должно быть пятизначным'); exit end; var a:=new integer[5]; for var i:=0 to 4 do begin a[i]:=n mod 10; n:=n div 10 end; n:=a[0]; for var i:=1 to 4 do n:=10*n+a[i]; Writeln('n= ',n) end.
Внимание! Если программа не работает, обновите версию!
begin
var n:=Abs(ReadInteger('n='));
if not n.Between(10000,99999) then begin
Writeln('Число должно быть пятизначным');
exit
end;
var a:=new integer[5];
for var i:=0 to 4 do begin
a[i]:=n mod 10;
n:=n div 10
end;
n:=a[0];
for var i:=1 to 4 do n:=10*n+a[i];
Writeln('n= ',n)
end.
Пример
n= 52061
n= 16025