<em>// PascalABC.NET 3.2, сборка 1387 от 20.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('S=',ReadSeqIntegerWhile(i->i<>0).Average)
end.
<u>Пример</u>
24 18 -25 14 6 11 0
S=8
12₈ = 2×8⁰+1×8¹ = 2×1+1×8 = 2+8 = 10₁₀
1234567₈ = 7×8⁰+6×8¹+5×8²+4×8³+3×8⁴+2×8⁵+1×8⁶ = 7×1+6×8+5×64+4×512+3×4096+2×32768+1×262144 = 342391₁₀
1) 128000:8=16000 байт/c
2) 625*1024=640000 байт
3) 640000:16000=40 с - t1
4) 512000:8=64000 байт/с
5) 640000:64000=10 с - t2
6) 40-10=30
Ответ на 30 с
Информация о погоде (вегодня весь день солнечно), данные (температура воздуха+25)