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

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

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

    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.

  2. Ответ
    Ответ дан artifex

    var y,x:real;
    begin
    write('Введите 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.

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