Question

написати на мові Паскаль програму з підрахунку значень (у) наданої функції нижче ​

Answer 1

program FunctionValue;

var

 x, y: real;

begin

 write('Введіть значення x: ');

 readln(x);

 

 if x < 1 then

   y := x*x

 else

   y := -2*x + 3;

 

 writeln('Значення функції: ', y);

end.