[Daryll]

Написать программу суммирования рядов при одном и том же значении аргумента и 2-х значениях точности, отличающихся друг от друга более чем на порядок.

Ряд: y=1+a+a/2!+a/3!+.....
Точность: 0,01
Точное значение: y=1-a+a*e

[lmikle]

Ну и в чем проблема? While подойдет.

Код:

const
  e : double = 0.01;
var
  i : double;
  k : double;
begin
  s := 0;
  k := 1;
  i := 0;
  while k > e do
    begin
      s := s + k;
      inc(i);
      k :=  a/fact(i);
    end;

Если нигде не напутал, то так.