Question

PACKAL.ABC
Вычислить значения многочлена 2a^5-2a^2-1.7a+12 для a=0,1,5,3,4,5,….10.5.

Answer 1

var

 a:real;

begin

 a:=0;

 repeat

   write('При а=',a,', значение многочлена: ');

   writeln(2*exp(5*ln(a))-2*sqr(a)-1.7*a+12);

   a:=a+1.5;

 until a>10.5;

end.