Question

C клавиатуры вводятся произвольные числа. Необходимо вычислить среднее арифметическое всех введенных четных чисел. Условием выхода из цикла является сумма чисел больше 150. Написать программу на языке Паскаль.

Answer 1

PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018

function ReadWhileSum(cond: integer->boolean): sequence of integer;

begin

 var s := 0;

 while True do

 begin

   var x := ReadInteger();

   s += x;

   if not cond(s) then break;

   yield x;  

 end;

end;

begin

 Println('Сред. арифм. =',ReadWhileSum(sum -> sum < 150)

                                                                        .Where(t->t.IsEven).Average);

end.