, с практическим заданием. Эксель

программа, выводящая на экран номер четверти координатной плоскости, которой принадлежит точка с координатами х≠0 и у≠0

  program 198;

var x,y: real;

begin;

readln (x; y);

if x> 0 and y> 0 then

writeln (1 chetvert);

end;

if x< 0 and  y> 0 then

writeln (2 chetvert);

end;

if x< 0 and  y< 0 then

writeln (3 chetvert);

end;

if x> 0 and  y< 0 then

writeln (4 chetvert);

end;

end.

1)

var 

a,b,c: real;

begin

readln(a,b);

c: =180-a-b;

if (a> 90) or (b> 90) or (c> 90) then writeln('тупоугольный')

else

if  (a=90) or (b=90) or (c=90) then writeln('прямоугольный')

else  writeln('остроугольный');

end.

2)

var

v: real;

begin

readln(v);

if v< 7.8 then writeln ('ракета упадет на землю');

if v=7.8 then  writeln ('ракета станет спутником земли');

if (v> 7.8) and (v< =16.4) then  writeln ('ракета останется в пределах солнечной системы'); if (v> 16.4) then  writeln ('ракета покинет пределы солнечной системы');  

end.

1) отр(х+отр(х*у))=отр(х+отр(х)+отр(у))=отр(1+отр(у))=отр(1)=0

2) отр(ху)+отр(х)+у+z=отр(х)+отр(у)+отр(х)+у+z=отр(х)+1+z=1

3)а*с+а+а*отрв+отрс*а=а+а*отрв=а

4)отр(отрх*отру)+отрх=х+у+отрх=1 

ткань,глина,дерево,стекло,бумага,мктал,пласмасса,резина,лед