Question

Написать на Pascal.
рассчитать y=x^2+1.8, при заданном x.
k=
sin y, при y<10
tg y, при >20
y^2, при 10<= y <= 20

Answer 1

===== PascalABC.NET =====

begin

 var x := ReadReal('x =');

 var y := x * x + 1.8;

 var k: real;

 if y < 10 then

   k := Sin(y)

 else if y > 20 then

   k := Tan(y)

 else

   k := y * y;

 Print(k)  

end.