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

Решите пожалуйста информатику очень прошу.

Хотябы одно задание.

  1. Ответ
    Ответ дан glebglebgleb

    1) 

    var
    t,s:real;
    begin
    readln(t);

    if t>=8 then
    s:=exp(1/sqr(t))
    else if (t>-10) and (t<-8) then
    s:=sqrt(sqr(t)+4)
    else
    s:=sin(t);

    writeln(s);
    end.

     

    2) 

    var
    x,y:real;
    begin
    readln(x);

    if x*(x+3)*(sqr(x)-4)>=0 then
    y:=x*(x+3)*(sqr(x)-4)
    else begin
    writeln('net resheniy');
    exit;
    end;

    writeln(y);
    end.

Самые новые вопросы