• Задано целое неотрицательное число. Найти произведение цифр.
    Примеры: 949
    Выходные данные: 324

Ответы 2

  • И всего-то дел...
    • Автор:

      charisma
    • 6 лет назад
    • 0
  • PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018Внимание! Если программа не работает, обновите версию!begin  var (n,p):=(ReadInteger,1);  while n>0 do (p,n):=(p*(n mod 10),n div 10);  p.Printlnend.
    • Автор:

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

Войти через Google

или

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

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

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