ЧА-3

f[t_] := 1/(1 + t^2);
g[t_] := InterpolatingPolynomial[{{-1, 1/2}, {0, {1, 0, -2}}, {1,
     1/2}}, t];
Expand[g[t]]
Plot[f[t] - g[t], {t, -1, 1}]

InterpolatingPolynomial[{{-1, {1, 0}}, {0, 0}, {1, {1, 4, 16}}}, x]
Expand[%]