Текстовый файл, ну то есть содержит текстовую информацию.
50-если посчитать все буквы,пробелы и знаки.По кол-во событий 5.
if (($a+$b+$c) % 2 = 0) {$a = 2*$a; $b = 2*$b; $c = 2*$c;}
<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