• Задается положительное целое число n. Нужно вывести произведение его цифр
    Формат входных данных
    Первая строка входного файла содержит ровно одно положительное число n (1<=n<= 10^100)

Ответы 1

  • PascalABC.NET 3.4.2, сборка 1861 от 09.11.2018Внимание! Если программа не работает, обновите версию!

    begin

     var s:=ReadLines('data.txt').First.Select(t->t.ToDigit)

         .Aggregate(BigInteger(1),(a,b)->a*b).Println

    end.

    Пример

    10057531504895395788703629698793031096713606951075840000000000000

    Файл data.txt дан во вложении
    answer img
  • Добавить свой ответ

Войти через Google

или

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

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

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