Нужно решить через программу pascalabc

shukirbekovabak shukirbekovabak    1   04.12.2019 18:18    0

Ответы
lizatim2005 lizatim2005  10.10.2020 18:26

PascalABC.NET

begin

 var x := ReadReal;

 var y: real;

 if x <= -3.5 then

   y := Cos(x) / (Abs(x) + 10)

 else if x < 4 then

   y := 0.5 * Exp(0.1 * x)

 else if x < 7 then

   y := Log10(1.5 * x)

 else

   y := Sqr(Sqr(Sin(x)));

 Print(y)

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика