• срочно надо, помогите пожалуйста составьте программу на паскале для вычисления значений у по формуле у=корень из х для х,заданного с клавиатуры.Если х число отрицательное, то выведите сообщение, что значение у не существует.

Ответы 1

  • var

    y,x:real;

    begin

    write ('X = ');readln(x);

    if x<0 then writeln ('Y does not exist') else begin

    y:=sqrt(x);

    writeln ('Y = ',y:0:4);

    end;

    readln;

    end.

    • Автор:

      booiwdv
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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