Во вложении - вариант решения первой системы уравнений...
Begin
var a := ArrRandom(7, -10, 10);
a.println();
writeln(a.Where(x -> x mod 2 = 0).Average);
end.
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadlnString.Inverse)
end.
<u>Пример</u>
слово
оволс
В одном килобайте 1024 байт. В одном байте 8 бит. Итого
16 кбайт=16*1024*8бит=131072бит
Ответ: 131072 бит
Символысимволысимволы
В третьей через архиватор быстрее.