Программы на Паскаль

[wegan32]

Нужно решить две задачки, остались последние.

[digitalis]

Опять же пыткой надо вытягивать условие задачи: до достижения заданной точности или фиксированное число элементов ряда ?
Возьми то, что тебе сделали по предыдущему вопросу, пошевели чуть-чуть извилинами и результат выложи сюда, и мы тебя направим на путь.
Вторую часть решил мой Мурзик за доп. порцию Вискасу.

var i : integer ; y : Extended ;
begin
   y := 100. ;
   for i := 99 downto 0 do  y := i + 1/y ;
   Writeln ('Result = ', y:12:9)
end.

[newerow1989]

1 задание

var i,n:integer;
    r:real;
    znak:-1..1;
begin
   Write('n = '); Readln(n);
   r:=0;
   znak:=1;
   For i:=1 to n do
   begin
      znak:=-znak;
      r:=r+znak/(2*i+1);
   end;
   Writeln(r:2:8);
   Readln;
end.

[digitalis]

Ну, у меня телепатор в ремонте, потому не допёр, что до заданного n, а не epsilon Хотя это - абсурд. Классика жанра - до достижения заданной точности.