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

Помогите выполнить на PascalABC(паскале)

  1. Ответ
    Ответ дан Gleb1Kosyrev
    1)
    Var
     x,y:real;
    begin
     read(x);
     y:=(3+exp(x))/cos(x)-1/abs(sqr(x)-0.2*x);
     writeln(y);
    end.
    2)
    Var
     x,y:real;
    begin
     read(x);
     if x<=3 then y:=sqr(x)-3*x+9 else y:=1/(power(x,3)+6);
     writeln(y);
    end.
    3)
    Var
     p,i:integer;
    begin
    p:=1;
     for i:=9 to 16 do //рассматривается вариант с до 17, а не по 17
     if odd(i) then p:=p*i;
     writeln(p);
    end.




    1. Ответ
      Ответ дан mmisa1345
      спасибо большое)
Самые новые вопросы