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.