Ответ(ы) на вопрос:
ГостьProgram pr;
Uses Crt;
Var
x,y:real;
Begin
writeln('Введите x');
readln(x);
if (x>0) then y:=x+1
else
if (x<0) then y:=x+3*x-4
else y:=Cos(x)-1;
writeln('y=',y);
readln;
end.
Не нашли ответ?
Похожие вопросы