Во вложении решение. Триады-это разбиение по 3 цифры, тетрады - это по 4 цифры.
При переводе из десятичной сс в двоичную с помощью таблицы пишешь 1, если число нечетное (т.к. нечетное число на 2 без остатка не делится, и в остатке всегда 1. Этот остаток ты и пишешь, где нечетное). А чётное делится на 2 без остатка, поэтому там, где число чётное, пишется ноль.
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Матем ИЗ "...\Отделы\Обмен\", Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
массив: ДОСТУП К РЯД ИЗ ЦЕЛ;
N, сч, отрицательных: ЦЕЛ;
УКАЗ
N := Приём.Число();
СОЗДАТЬ(массив, N);
отрицательных := 0;
ОТ сч := 0 ДО N - 1 ВЫП
массив[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 20)) - 10;
ЕСЛИ массив[сч] < 0 ТО УВЕЛИЧИТЬ(отрицательных) КОН
КОН;
Вывод.ЧЦел("^%d", отрицательных, 0, 0, 0)
КОН Задание.
<u>PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadArrInteger(15);
var s:=Range(0,a.Length-1,2).Select(i->a[i]);
Writeln('Среднее геометрическое элементов на нечетных позициях ',
(s.Aggregate(1.0,(p,q)->(p*q)))**(1/s.Count))
end.
Человеческий глаз может увидеть изображение, передаваемое кинопроектором с предельной скоростью 24 кадра в секунду. Если скорость увеличить до 25 кадров /сек., то 25 кадр вы уже не увидите, однако, подсознание его зафиксирует и отложит в мозгу. На данной методике основаны многие методы быстрого обучения, в частности, иностранным языкам.