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

Найти y при условии , что если x>0 , то y =√x , а если x <= 0то y = x^2+1

  1. Ответ
    Ответ дан asoiiu
    program Uravnenie;

    var
      x, y: real;

    begin
      write('Введите значение х: ');
      readln(x);
      if x > 0
        then y := sqrt(x)
      else y := sqr(x) + 1;
      writeln('y=', y);
    end.
Самые новые вопросы