Помогите пожалуйста сделать программу по паскалю.
Var x,y: real;
begin
write( x = ); readln(x);
if x<0 then y:=sqr(x)*x+2
else y:=sqrt(x);
writeln( y = ,y:6:4);
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
Var x,y: real;
begin
write( x = ); readln(x);
if x<0 then y:=sqr(x)*x+2
else y:=sqrt(x);
writeln( y = ,y:6:4);
end.