real a(8) f(n)=(1-t)**(3-n)*t**n*a(i+n+n) read*,a print'(i0xi0)',((nint(f(0)+3*f(1)+3*f(2)+f(3)),i=1,2),t=0,1,.1) end

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page