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

hat345oxt288 hat345oxt288    2   09.05.2019 18:42    0

Ответы
Камила77 Камила77  09.06.2020 18:45

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

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика