ПОМОГИТЕ!!! пользователь вводит число преобразовать его в другое, числа которых стоят в обратном порядке

1

Ответы и объяснения

2014-03-26T13:56:08+00:00
Var number, new,a: integer; begin write('Введите число: ' ); readln(number); new:=0 ; while (number > 0 ) do begin a:= number mod 10 ; new:=new*10+a; number:=number div 10 ; end; writeln('Новое число: ' ,new); end.