Corin
5 год назад
Составить программу которая вычисляет произведение четных чисел от 1 до 50
ОТВЕТЫ
Мира
Oct 24, 2020
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(range(1,50).Where(x->x.IsEven).Aggregate(Real(1),(x,y)->(x*y)));
end.
//Версия 3.3, сборка 1611
begin
write(range(1,50).Where(x->x.IsEven).Aggregate(Real(1),(x,y)->(x*y)));
end.
21
Смежные вопросы:
