Составители:
Рубрика:
52
for i:=0 to m do r[i]:=k*p[i];
end;
procedure multiply(n:integer;
p:polinom;
k:integer; q:polinom;
var m:integer; var r:polinom);
var i,j:integer;
begin
m:=n+k;
for i:=0 to m do r[i]:=0;
for i:=0 to n do
for j:=0 to k do
r[i+j]:=r[i+j]+p[i]*q[j];
end;
writeln('Введите первый
многочлен');intput(n1,a);
writeln(' Введите второй многочлен ');
intput(n2,b);
division(n1,a,n2,b,n3,c,n4,d);
writeln('Частное равно');
output(n3,c);
writeln('Остаток от деления');
output(n4,d);
writeln('Сумма коэффициентов первого
многочлена равна');
value(n1,a,1,f);writeln(f);
end.
