Нужно сделать это уравнение поэтапно,чтобы получилось как ** следующих фото.

Question

Нужно сделать это уравнение поэтапно,чтобы получилось как на следующих фото.

---

---

---

Comments

Это точно информатика?

---

Непонятно, что делать. у тебя на первой странице формула под сокращение, сильное сокращение, на второй и третьей простенькая прораммка. И что надо, собственно?

---

Надо просто это уравнение разложить,как на том фото с простой формулой

---

Простая формула для примера только

Answer 1

Формулу сократить до 
1/6 (x - 4) (x - 5)
x!=-4
x!=5
и дальше что-то вроде

var
  x,y,z,s:integer;
begin
    writeln('Вычисление значения функции s=(x^2-10x+25)/(3x+12)/((2x-10)/(x^2-16))', в целых числах);
    writeln('Введите значение X);
    readln(x);
    y:=x-4;
    z:=x+5;
  if ((y=0) or (z=0)) then writeln('Значение функции не определено');
  else begin
    s:= 1/6*y*z;
    write('s =');
    writeln(s);
  end;
end.
не уверен насчёт синтаксиса, где-то может быть лишние точка с запятой, проверьте.

Comments

Вот прогнал программку в АБС-Паскале,

---

var
x,y,z,s:real;
begin
writeln('Вычисление значения функции s=(x^2-10x+25)/(3x+12)/((2x-10)/(x^2-16))');
writeln('Введите значение X');
readln(x);
y:=x-4;
z:=x+5;
if ((y=0) or (z=0)) then writeln('Значение функции не определено')
else begin
s:= 1/6*y*z;
write('s =');
writeln(s);
end;
end.

---

Спасибо большое )