Дано пятизначное число. Получить число, образованное при перестановке цифр исходного числа слева направо.

Question

Информатика

Вильгельм

15 мая, 05:02

Дано пятизначное число. Получить число, образованное при перестановке цифр исходного числа слева направо.

+2

Ответы (1)

Знаете ответ?

Мелана · Answer 1

Var

i, answer, a:integer;

begin

Readln (a) ; i: = 10000;

while a > 0 do

begin

answer: = answer + (a mod 10) * i;

i: = i div 10;

a: = a div 10;

end;

Writeln (answer) ;

end.