дан массив 100 целых чисел , выведенных по формуле A[k]=(k+5)^2.Найдите произведение чисел , кратных 4 на языке Паскаль
BobbyFresnel:
k начинается от 0 или от 1 ?
от 0
Ответы
Ответ дал:
1
===== PascalABC.NET =====
begin
var a := ArrGen(100, k -> Sqr(k + 5));
a.Println; // удалите строку, если вывод не нужен
Println('П =',
a.Where(p -> p mod 4 = 0)
.Aggregate(BigInteger.One, (p, q) -> p * q))
end.
Приложения:
Похожие вопросы
1 год назад
1 год назад
2 года назад
2 года назад