• помогите решить задачу пожалуйста, очень надо))

Ответы 1

  • Вот на Паскалеuses Crt;var x, y: real;    k: integer;begin ClrScr; Write (' X = '); ReadLn (x); Write (' k = '); ReadLn (k); if (k=2) then y:=sqr(x)+x+1; if (k=3) then y:=sqr(x)*x+1; if (k>3) and (k<7) and (x<>-1) then y:=1/abs(x+1); if (k>7) or (k<2) then y:=sqrt(abs(x+k))+sqrt(abs(x-k)); WriteLn (' Y = ', y:8:3); ReadLn;end.
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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