Question

Вывести реверсную записать пятизначного натурального числа (информатика , решение задач в Паскаль)

Answer 1

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