<span>import math as m x = int(input('x = ')) y = int(input('y = ')) a = b = <span>3 </span>c = m.sqrt(pow(a,2)+pow(b,2)) z = -<span>3 </span>S1 =1/2*x*y S = 1/2*a*b if S1<= S: print("Площа заштрихованої зони ", S) print("Точка з координатами [",x,',',y,'] знаходиться в 1 площині ') print("Точка з координатами [",x,',',y,'] належить заштрихованій площині ')
elif (x < 0) and ( y > 0): print("Точка з координатами [",x,',',y,'] знаходиться в 2 площині ')
elif(x > 0) and ( y < 0): print("Точка з координатами [",x,',',y,'] знаходиться в 4 площині ')
elif (x >= z) and ( y >= z): print("Точка з координатами [",x,',',y,'] знаходиться в 3 площині ') print("Точка з координатами [",x,',',y,'] належить заштрихованій площині ') else: print("Точка з координатами [",x,',',y,'] знаходиться в 1 площині ') print("Точка з координатами [",x,',',y,'] HE належить заштрихованій площині ')</span>
1) Возьми 3 (=3).
2) прибавь 3 (=6).
2) умножь на 3 (=18).
Если только указанные команды, то
1. Умножь на 2 (=6).
2. Умножь на 2 (=12).
3. Вычти 3 (=9).
4. Умножь на 2 (=18).
Обычно размер указывают, раз нету, взял по дефолту 10(Const N=10). И диапазон какой-то странный, думаю имелось введу (-5;5) Program G; Uses Crt; Const N=10; Var i: integer; mass: array [1..n] of integer; Begin Randomize; ClrScr; Writeln('Исходный массив из 10 чисел диапозона (-5;5):'); For i:=1 to N do Begin Mass[i]:=Random(11)-5; Write(Mass[i]:4); End; Writeln; Writeln('Исходный массив после замены всех отрицательны на -1:'); For i:=1 to N do If mass[i]<0 then mass[i]:=-1; For i:=1 to N do write(Mass[i]:4); Readln; <span> End.</span>