Ответы
Ответ дал:
0
PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!
begin
SeqGen(ReadInteger('n='),i->i+1,10).Select(i->i/10)
.Aggregate(1.0,(a,b)->a*b).Println
end.
Пример
n= 15
4274.47366714368
Внимание! Если программа не работает, обновите версию!
begin
SeqGen(ReadInteger('n='),i->i+1,10).Select(i->i/10)
.Aggregate(1.0,(a,b)->a*b).Println
end.
Пример
n= 15
4274.47366714368
Вас заинтересует
1 год назад
1 год назад
2 года назад
8 лет назад
8 лет назад