Question

Переведите в Паскаль пожалуйста
3 номер

Answer 1

Ответ:

program p3;

var x,a,b,c: real;

function F(x):real;

var y: real;

begin

      if x>0 then

       y :=  a*sqr(x)-b*x+9.0

      else

      y := c/(sqr(x)*x+8.0)'

      F:=y;

end;

begin

       writeln ('A=?');

       readln(a);

       writeln ('B=?');

       readln(b);

       writeln ('C=?');

       readln(c);

       writeln ('x=?');

       readln(x);

       writeln('F(',x,')=',F(x));

end.

Объяснение: