Задается положительное целое число n. Нужно вывести произведение его цифр Формат входных...

Question

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

Answer 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 дан во вложении

---

Скачать вложение Текст (TXT)