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

Ответы 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.
    • Автор:

      cocosoto
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years