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

Question

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

Comments

12345 ---> 54321?

---

да

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.