Question

написать программу в PASCAL ABC которая выполняет переворот пятизначного числа, вводимого с клавиатуры

Answer 1

var

a, b:integer;

begin

a := ReadInteger('введите пятизначное число:');

for var n := 1 to 5 do

begin

 b := b*10 + (a mod 10);

 a := a div 10;

 end;

 Println('перевёрнутое число равно:', b);

end.