Question

Задача 1: Скласти програму на мові Паскаль ьдля обчислення значень функції:​

Answer 1

begin

 var x:=ReadReal('Введите x: ');

 var y:real;

 if (x > 1) then    

   begin

     y:=sqrt(2 * x + 3);

     write('--------------', #10, 'x = ', x, #10, 'y = ', y:0:3, #10, '--------------');

   end

 else if (x <= 1) then    

   begin

     y:=sqr(x) * x + 2;

     write('--------------', #10, 'x = ', x, #10, 'y = ', y, #10, '--------------');

   end;

end.