Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

(Паскаль)!! Составить программу

Ответ оставил Гость

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.