program raf105;
var abc,a,b,c,d,e:integer;
begin
write('Введите пятизначное число: ');
readln(abc);
a:= abc div 10000;
b:= (abc div 1000) mod 10;
c:= (abc div 100) mod 10;
d:= (abc div 10) mod 10;
e:= abc mod 10;
abc:= e*10000 + d*1000 + c*100 + b*10 + a;
writeln('Перевёрнутое число: ',abc);
end.
Язык PascalABC
program raf105;
var abc,a,b,c,d,e:integer;
begin
write('Введите пятизначное число: ');
readln(abc);
a:= abc div 10000;
b:= (abc div 1000) mod 10;
c:= (abc div 100) mod 10;
d:= (abc div 10) mod 10;
e:= abc mod 10;
abc:= e*10000 + d*1000 + c*100 + b*10 + a;
writeln('Перевёрнутое число: ',abc);
end.
Язык PascalABC