Только для 7, т.к рассмотрим вторую скобку без инверсии
7 0
9 1
11 1
12 1
Инверсия даст (1 0 0 0) (записала по горизонт., чифры соответствуют 7,9 11,12)
В первой скобке с учетом инверсии получ-ся (1 0 0 0), перемножаем, получаем 1 только в одной строке - напротив 7
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
write('массив: ');
var a:=ArrRandom(15,-100,100).Println;
write('кол-во элементов <10: ',a.Where(x->x<10).Count);
end.
Ну вот, полное решение твоего задания.
Рисунок 2:
program ggg;uses GraphABC;var xc,yc,y,x,r: integer;beginwriteln('введи центр окружности');readln(xc,yc);writeln('введи радиус окоружности');readln(r);x:= xc;y:= yc;Brush.Color:= clRandom;circle(x,y,r);circle(x-r,y-r div 4,r div 4);circle(x+r,y-r div 4,r div 4);circle(x,y-r,r div 2);
end.
Я считаю, потому что алфавитный подход позволяет измерять информационный объем текста,не связанный с содержанием этого текста