<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3>
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.
От 45 до 70 см
______________________
01000100 01110101 01100010 01101001 01101110 01110011 01101011 01100001 01101001 01100001
<span>Разбиваешь данное число на тетрады 011 010 111. Каждую тетраду заменяем двоичным числом, получаем ответ 327
</span><span>калькулятор в инженерном режиме встренный в виндовс тебе поможет :)</span>