Question

дан массив 100 целых чисел , выведенных по формуле A[k]=(k+5)^2.Найдите произведение чисел , кратных 4 на языке Паскаль

Answer 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.