profile
Опубликовано 6 лет назад по предмету Информатика от katelindenmann

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

  1. Ответ
    Ответ дан garfild214
    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.
Самые новые вопросы