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

4 10 14 плз помогите не могу решить

  1. Ответ
    Ответ дан Gleb1Kosyrev
    //Pascal ABC.NET 3.1 сборка 1256

    //4
    //a
     Var
     x,y:real;
    begin
    read(x,y);
    if ((x<0) and (y>0)) or ((x>0) and (y<0)) then write('Комплексное число') else write(abs(sqrt(x*y)-5));
    end.

    //б
     Var
     x:real;
    begin
    read(x);
    if x=0 then write('Попытка деления на 0') else write((2*(5*x-1))/(7*x));
    end.

    //10
     Var
     x:real;
    begin
    read(x);
    if x>0 then write(power(x,3)) else write(3*exp(x));
    end.

    //14
     Var
     x:real;
    begin
    read(x);
    if x>-4 then write((5*sqr(x)+2)/(x+4)) else write(3*sqr(x)+7);
    end.
Самые новые вопросы