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

Question

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

Comments

Реверсная копия числа означает перевёрнутое число?

---

Написать с использованием массива или без использования массива?

---

Да , перевёрнутое число

---

Без массива

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