Question

Найти среднее арифметическое чисел от
1 до 100, кратных 3.

Answer 1

// PascalABC.NET 3.6.3

begin

 (1..100).Where(p -> p mod 3 = 0).Average.Print

end.

Ответ: 51