Многочлены, составить многочлен (x-a1)(x-a2)(x-a3)(x-a4)(x-a5)(x-a0) Опции

[Рустам]

Даны числа a₀ a₁ a₂ a₃ a₄ a₅
Составить многочлен шестой степени (x-a₀)(x-a₁)(x-a₂)(x-a₃)(x-a₄)(x-a₅)

Добавлено через 1 мин.
думал много над ней.. передо мной была сложность одна.. .когда раскрываешь скобки образуются всевозможные комбинации с двумя а потом с тремя , четырьми... для комбинаций с двумя а придумал...а когда идут 3 , 4.. че то додуматься не могу... помогите пожалуйста

[Lapp]

Не удержался - сделал вывод поизящнее:

const
  n=6;
  e=1e-7;

type
  tPoly= array[0..n]of double;

procedure Product(p,q: tPoly; var r: tPoly);
var
  i,j: integer;
begin
  for i:=0 to n do r[i]:=0;
  for i:=0 to n do for j:=0 to n-i do r[i+j]:=r[i+j]+p[i]*q[j]
end;

function Show(p: tPoly): string;
var
  i: integer;
  s,t: string;
begin
  s:='';
  for i:=0 to n do
    if Abs(p[i])>e then begin
      if p[i]<0 then s:=s+'-' else if i>0 then s:=s+'+';
      if Abs(Abs(p[i])-1)>e then begin
        Str(Abs(p[i]):4 :2,t);
        s:=s+t
      end;
      if i>0 then s:=s+'x';
      if i>1 then begin
        Str(i,t);
        s:=s+'^'+t
      end
    end;
  Show:=s
end;

const
  a: tPoly= (2,-1,0,0,0,0,0);   {2-x}
  b: tPoly= (2,1,0,0,0,0,0);    {2+x}

var
  c: tPoly;
  i: integer;

begin
  Product(a,b,c);
  WriteLn('('+Show(a)+')'+'('+Show(b)+')='+Show©);
  ReadLn
end.