Помогите пожалуйста сделать программу по паскалю.
Помогите пожалуйста сделать программу по паскалю.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы