1) Считаем, получаем 2, 6, 6. Нужен ещё маленький сектор, т. е. 2. Подходит только вариант 1.
2) 2, 4, 1. Очевидно, что ещё одна 1 нужна. Подходит вариант 3.
0001
0010
0011
0100
0101
0110
0111
1000 1001101010111100
11011110. 1111
===== PascalABC.NET =====
begin
var a := ReadReal('Сторона квадрата:');
Println('Его площадь:', a * a)
end.
Как назовёшь, так и будут называться. Программы обычно используют вариант б).
Const n=100;
var x : array[1..n] of integer;
i,k1,k2 : integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
x[i]:=random(41)-20;
write(x[i],' ');
end;
writeln;
for i:=1 to n do
begin
if x[i]<0 then k1:=k1+1;
if x[i]>0 then k2:=k2+1;
end;
writeln('k1=',k1,' k2=',k2);
end.