Question

решите систему уравнений
это нужно решить через PASCAL
if then else и т.д срочнооооооо​
даю 25 баллов.
см. фото

Answer 1

Ответ:

begin

 var x,y:real;

 write('Введите значение X: '); readln(x);

 if x>1 then

   y:=(x-25).Sqrt

else

 if x<1 then  

   y:=x.Sqr+3*x;

 write('y(',x,') = ',y);

end.

Примечание:

Паскаль не умеет брать корень из отрицательного числа (!), поэтому если вы введете х, значение которого окажется меньше 25, то на выходе получите y = NaN