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

Question

Информатика

Сусанна

13 мая, 10:02

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

+5

Ответы (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.