Предмет: Информатика,
автор: zhakanovn01
Задается положительное целое число 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 дан во вложении
Приложения:
Похожие вопросы
Предмет: Математика,
автор: oblakokickflip
Предмет: Литература,
автор: burst101101101
Предмет: Литература,
автор: ArtemSunrise
Предмет: Математика,
автор: SUBDVACH