Тема: Ряд Тейлора.
Не правильна відповідь.
{Pascal}
const eps=0.00001; MaxIter=1000;
var x,y,u:real; n:integer;
begin
read(x);
u:=1; y:=0; n:=0;
while (abs(u)>eps) and (n<MaxIter) do
begin
u:=u*(-1)*(x-1)*(n+1)/(n+2);
y:=y+u;
inc(n);
end;
writeln(y:2:4);
y:=ln(x);
writeln(y:2:4);
readln;
readln
end.