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

Question

Информатика

Нил

7 октября, 22:39

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

+3

Ответы (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.