Используем схему Горнера.
y = x³+2.5x²-x+1 = 1+x(-1+x(2.5+x))
var
x,y:real;
begin
Read(x);
y:=x+2.5;
y:=y*x;
y:=y-1;
y:=y*x;
y:=y+1;
Writeln(y)
end.
А вектор + а
Отрицание на отрицание дает положительный ответ
67108864 байт.
Это если слева 1/16 Гбайт, т.е. 0,0625 Гбайт.
128 символьный алфавит требует минимум 7 бит на символ. 40*50*3*7=42000 бит = 5250 байт