<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em><em>// Внимание! Если программа не работает, обновите версию!</em>begin
var n:=ReadInteger('Степень полинома:');
var p:=ReadArrReal('Коэффициенты полинома по убыванию степеней:',n+1);
var a:=ReadReal('Значение А:');
var q:=new real[n+2];
q[0]:=p[0];
q[n+1]:=-p[n]*a;
for var i:=1 to n do q[i]:=p[i]-a*p[i-1];
Writeln('Коэффициенты результирующего полинома');
q.Println
end.
<em>Контрольный пример</em>P(x)=3x²-4x+5, A=2.5
(x-A)P(x)=3x³-11.5x²+15x-12.5
<u>Результат выполнения программы</u>Степень полинома: 2
Коэффициенты полинома по убыванию степеней: 3 -4 5
Значение А: 2.5
Коэффициенты результирующего полинома
3 -11.5 15 -12.5
1 символ = 1 байт
30 строк по 70 символов - 2100 символов
5 страниц=10500 символов
ответ 10500 байт
1) Масти четыре, значит log2(4) = 2 бита.
2) Один вариант из 32, log2(32) = 5 битов.