<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
Пишу пошагово
a b
0 3
2 -3
4 7
6 9
8 27
10 37
последняя формула b = 37 * 2 = 74
Ответ: b = 74
12800000000бит=1600000000.0000 байт
4200тыс. ед. : 6 раз в день = 7 дней
4200 тыс. ед : 7 дней = 600 тыс. ед. в сутки