Question

найдите произведение чётную чисел от 16. пока чисел не станет 10.
языком паскаля пожалуйста

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)

begin
  Println(Range(16,34,2).Aggregate(biginteger(1),(a,b)->a*b));
end.

Результат:
72266652057600