помогите решить . безотлагательно

Помогите решить . срочно

Задать свой вопрос
1 ответ
Var
    x, y: real;

begin
    readln(x);
    if x gt; 0 then
        y := sqrt(x + 1)
    else y := 3 * x * x + 4 * x - 5;
    writeln(y);
end.
Maksimka Kudrinskih
устраняйте если что, не увидела что нет приписки сделать один номер
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт