Написать программу в Паскале через циклы while и repeat.
Вычислить сумму бесконечного ряда с заданной точностью E=0.5e-6,к=0.

Сумма этого бесконечного ряда дает значение  е - основание натурального логарифма,   е = 2,718281828459045....const eps=0.5e-6;var k: integer;    ex,s,fak: real;begin   ex:=exp(1);   k:=0;   s:=1;   fak:=1;   repeat     k:=k+1;     fak:=fak/k;     s:=s+fak;   until ex-s<eps;     writeln('сумма = ',s);   writeln('точное значение:  ',ex);end.    с циклом  while - после  fak:=1;   while ex-s>eps dobegin     здесь те же операторы, что и в repeatend;