Програмка внизу работает и правильно, надо только подрихтовать немного
(а можно и не трогать)
Code
uses CRT;
var a,z,p0,p1,p2,p3,p4,p5:real;
QA,PA1,q0,q1,q2,q3,q4,q5:real;
function f(x,a0,a1,a2,a3,a4,a5:real):real;
begin
f:=a5*x*x*x*x*x+a4*x*x*x*x+a4*x*x*x+a2*x*x+a1*x+a0;
end;
begin
read(a);
read (p0,p1,p2,p3,p4,p5);
read (q0,q1,q2,q3,q4,q5);
QA:=f(a,q0,q1,q2,q3,q4,q5);
PA1:=f(a+1,p0,p1,p2,p3,p4,p5);
z:=f(a+QA*PA1,p0,p1,p2,p3,p4,p5);
writeln (z);
readln;
end.
Можешь благодарить как можешь...
