Программа Паскаль: Найти все натуральные корни, меньше 100, уравнения...

Question

Программа Паскаль:
Найти все натуральные корни, меньше 100, уравнения
x^4-10x^3+38x^2-79x+70=0

Пожалуйста, помогите!

Answer 1

//PascalABC.NET 3.2 сборка 1318

Var
  x:integer;
begin
for x:=1 to 99 do
  if  power(x,4)-10*power(x,3)+38*sqr(x)-79*x+70=0 then writeln(x);
end.

Comments

СПАСИБО ОГРОМНОЕ!!! ВЫ СПАСЛИ МОЮ 5-УЮ ТОЧКУ ОТ ПЛАТНОЙ ПЕРЕСДАЧИ!! БЛАГОДАРЮ ВАС ОТ ВСЕЙ ДУШИ))))