1)1110001
2)10100111
3)101101100
4)1000001110
Легко клавища ентер и пуск домой зашимаешь их и ввцдет слово гнездо но если перевести его на русский!
Предположим, что массив уже есть и он называется arr.
-> это TAB
sum = 1
# произведение всех отрицательных элементов
for i in arr:
# для каждого элемента в массиве
-> if i < 0:
#если этот элемент < 0
->-> sum *= i
#прибавить к нашей сумме
print(sum)
Var x,y,R1, R2: integer;
koltoch: byte;
begin
writeln('Введите внутренний радиус R1');
readln(R1);
writeln('Введите внешний радиус R2');
readln(R2);
koltoch:= 0;
x := -R2;
repeat
y := -R2;
repeat
if (sqrt(sqr(x) + sqr(y)) > R1)
and (sqrt(sqr(x) + sqr(y)) < R2) then
begin
koltoch:= koltoch + 1;
writeln (x,' ',y);
end;
y := y + 1;
until y = R2;
x := x + 1;
until x = R2;
writeln(koltoch);
readln
<span>end.</span>
___________________________________________