Question

Здравствуйте, господа !Нужна помощь с Pascal ! Нужно перевести систему уравнения в код!
На картинке 2 формулы, те что в правой части картинки!Помогите пожалуйста

Answer 1

1.
var x,y:real;
begin
write('x = '); readln(x);
if x>=5 
  then begin y:=x*x+5; writeln('y = ',y); end
  else if x<2 then begin y:=0; writeln('y = ',y); end
              else writeln('Функция не определена');
end.

Пример:
x = 6
y = 41

2.
var x,y:real;
begin
write('x = '); readln(x);
if x<2 
  then begin y:=3/(x*x*x)-2/(x*x); writeln('y = ',y); end
  else if x<=5 then begin y:=3*x*x-2*x*x; writeln('y = ',y); end
               else writeln('Функция не определена');
end.

Пример:
x = 3
y = 9