• создать программу в паскале: желательно побыстрее,а то утром уже на учебу ))))))

Ответы 2

  • var x,y: real;

    begin

      readln(x);

      if x<=0 then y:=exp(x);

      if (x>0) and (x<=1) then y:=0;

      if x>1 then y:=ln(x);

      writeln(y:0:4);

    end.

    • Автор:

      maddy
    • 6 лет назад
    • 0
  • var y,x:real;beginwrite('Введите x = ');readln(x);if (x<=0) then y:=exp(x) else if x>1 then y:=ln(x) else y:=0;writeln('y = ',y:0:2);end.

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years