C клавиатуры вводятся произвольные числа. Необходимо вычислить среднее арифметическое всех введенных четных чисел. Условием выхода из цикла является сумма чисел больше 150. Написать программу на языке Паскаль.
More Questions From This User See All
Answers & Comments
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.