// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var m:=ArrRandom(16,-99,99); m.Println;
var s:=m.Where((e,i)->i.IsEven and (e>0));
Writeln('Ср.геом. положительных на нечетных местах ',
Power(s.Aggregate(1.0,(p,e)->p*e),1/s.Count):0:4)
end.

<u><em>Тестовое решение</em></u>
12 58 -54 77 -68 -41 -79 -91 -18 -57 98 81 28 97 33 79
Ср.геом. положительных на нечетных местах 32.2864

0 0

4 года назад

Помогите пожалуйста решить 1,2 задание. За рание большое спасибо

Влад Сокол [8]

1.
1200*14=16 800 (бит)
Ответ 16800 бит за 14 сек.
2.-?

0 0

1 год назад

В какой системе системе исчисления это выражение? вообще не поняла сути вопроса

a1254

Ну, во-первый Системы Счисления, а,потом, смотри, если есть 9, то это как минимум 10 СС, 16 сс не может, т.к 2+9 было бы В

0 0

4 года назад