Выведите число, полученное при прочтении цифр данного числа справа налево. Вводи

Выведите число, полученное при прочтении цифр данного числа справа налево. Вводится четырехзначное число. Паскаль абс нет Пример 1 Ввод Вывод 1234 4321
Гость
Ответ(ы) на вопрос:
Гость
Var n,m:integer; begin write('n = '); readln(n); m:=0; while n>0 do  begin  m:=m*10+n mod 10;  n:=n div 10;  end; writeln('m = ',m); end. Пример: n = 1234 m = 4321
Не нашли ответ?
Ответить на вопрос
Похожие вопросы