Дано пятизначное число. Получить число, образованное при перестановке цифр исходного числа слева направо.
Answers & Comments
danulpopov
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.
Answers & Comments
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.