While17. Дано целое число N (> 0). Используя операции деления нацело ивзятия остатка от деления, вывести все его цифры, начиная с самой правой (разряда единиц). (Pascal ABC)

Question

Информатика

Декабрин

9 мая, 09:35

While17. Дано целое число N (> 0). Используя операции деления нацело ивзятия остатка от деления, вывести все его цифры, начиная с самой правой (разряда единиц). (Pascal ABC)

+4

Ответы (1)

Знаете ответ?

Ермил · Answer 1

Var

n, x, a: integer;

begin

write ('Введите число: ') ;

readln (n) ;

while (n > 0) do

begin

a : = n mod 10;

x : = x * 10 + a;

n : = n div 10;

end;

writeln ('Ответ: ', x) ;

end.