20+10 БАЛЛОВ!!!!! Создайте функцию возведения вещественного числа в натуральную степень....

Question

20+10 БАЛЛОВ!!!!!
Создайте функцию возведения вещественного числа в натуральную степень. С ее помощью определите, является ли введенное число корнем уравнения x³-2x²-3x+6=0.

Answer 1

Function St(O:real; P:integer):real;
Begin
result:=1;
For P:= 1 to P do
    result:=result*O
End;
Var
  X:real;
Begin
Write('X = ');ReadLn(X);
if St(X,3)-2*St(X,2)-3*X+6 = 0 then Write(X,' - корень уравнения')
else WriteLn(X,' не является кормен уравнения')
End.

Comments

уверены на этот раз в правильности? :D

---

На этот раз - да

---

Большое спасибо