Ввести число N. Вывести число, получаемое выписыванием в обратном порядке цифр числа N. (Например, 1234, результат 4321). pascal цикл while или repeat

Ввести число N. Вывести число, получаемое выписыванием в обратном порядке цифр числа N. (Например, 1234, результат 4321). pascal цикл while или repeat
Гость
Ответ(ы) на вопрос:
Гость
Program n1; var n, a, m: longint; begin write('введите число: '); readln(n); m := 0; while n>0 do begin a := n mod 10; n := n div 10; m := m*10 + a; end; writeln('перевернутое число: ',m); end.
Гость
var n, nn : integer; begin repeat write ('Введите число, не оканчивающиеся на 0: ') readln (n); until (n mod 10)<>0; while n>0 do begin nn:=nn*10+(n mod 10); n:=n div 10; end; write (nn); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы