26 mod 12 = 2
125 div 2 = 62
Ответ с=62
<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.
22В1 = 2*16^3 + 2*16^2 + 11 * 16 + 1 = 8881
968 = 9*16^2 + 6*16+8 = 2408
125(восьм.)=1*8^2+2*8^1+5*8^0=64+16+5=85 (десятичн.)
34(восьм.)=3*8^1+4*8^0=24+4=28 (десятичн.)