решите систему уравнений
это нужно решить через PASCAL
if then else и т.д срочнооооооо
даю 25 баллов.
см. фото
Приложения:
![](https://st.uroker.com/files/272/272c081a09031c071c83e0d9e5b96141.jpg)
Ответы
Ответ дал:
0
Ответ:
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
zhenygrogorev:
почему начинается с begin?
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
8 лет назад