Найти значение f, принимающей вещественные значения: f: =(5-5*x)- x^2 если 0

Question

Найти значение f, принимающей вещественные значения: f: =(5-5*x)- x^2 если 0 < x < 2, То вывести значение, иначе x=x*2 и вывести значение f. помогите написать программу в Pascal

Answer 1

Ответ:

Объяснение:

Program pr;

var f, x:real;

begin

 readln(x);

 if (0 < x) and (x < 2) then f:=(5-5*x)-sqr(x)

 else f:=sqr(x);

  writeln(f);

end.

Comments

спасибо большое)