М-да... По поводу первой. А вот заглянуть
сюда, где только что было выложено решение аналогичной задачи, и чуть-чуть-чуть пошевелить мозгами в плане приведения к Вашей - никак? Ну то есть совсем? Грустно. Ну ладно, получите:
Код:
VAR
i:Integer;
S,x,A,Eps:Real;
Begin
Write('x= ');
Readln(x);
Write('Eps (e.g. 0.0001)= ');
Readln(Eps);
i:=3;
A:=x/6;
S:=A;
Repeat
Inc(i,2);
A:=-A*x*x/(i*(i-1));
S:=S+A;
Until Abs(A)<Eps;
Writeln('x= ',x:0:3,' Sum= ',S:0:5,' Accurate value= ',(x-Sin(x))/Sqr(x):0:5);
Readln
End.