<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadSeqInteger(20).Where(t -> Abs(t) < 10)
.Aggregate(BigInteger(1), (p, q)-> p * q).Println
end.
<h2>Пример</h2><h3>9 9 9 9 9 9 9 9 9 9 9 9 9 -9 -9 -9 -9 9 9 9</h3><h3>12157665459056928801 </h3>
Ответ:
s = 220
Объяснение:
Сделал программу вычисляющую s.
var n,s: integer;
begin
n:= 40;
s:= 0;
while n<50 do begin
if (n<50) and (n mod 2 = 0) then s:=s+n;
n:=n+1
end;
writeln(s);
end.
1) Переведем скорость в кб/с. 2 621 440 бит/с=320 кб/с
Файл размером 10 Мб или 10240 Кб будет передаваться 32 секунды
2)Переведем скорость 256 000 бит/с=32 кб/с
10 мин=600 с. Значит наибольший файл будет иметь размер 19200 Кб
3)Не знаю
64.000.000 вроде так, хотя могу и ошибаться