ПОЖАЛУЙСТА. Безотлагательно. СЛОЖНО. На языке Паскаль, вроде, написать надобно

ПОЖАЛУЙСТА. Безотлагательно. Трудно. На языке Паскаль, вроде, написать надобно

Задать свой вопрос
2 ответа
Да запутался с ветками условия
Исправлено
//Pascal
var x,y:real;
begin
  readln(x);
      if x gt;5 then y:=sqr(1/(x-5))+4 else y:=x*x*x-4*x;
   writeln(y);
 
end.



Var x,y: real;
begin
y:=0;
readln(x);
if xgt;5 then
y:= (sqr(1/(x-5))+ 4)
else y:=(sqr(x)*x)-4*x;
writeln(y);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт