Здравствуйте, 6574497!
Код в приложении:
[code lang=pascal h=200]const
e=0.000001;//точность
x=2;
var
a,y:real;
i:integer;
begin
writeln('exp(x):=':10,exp(x));//стандартное значение
y:=1;//значение функции первый элемент
a:=1;//значение приращения
i:=1;//итерационный шаг
while a>e do//пока приращение больше точности
begin
a:=a*x/i;//считаем и степень и факториал
y:=y+a;//суммируем
inc(i);//следующий шаг
end;
writeln('while :=':10,y);
y:=1;//значение функции первый элемент
a:=1;//значение приращения
i:=1;//итерационный шаг
repeat
a:=a*x/i;//считаем и степень и факториал
y:=y+a;//суммируем
inc(i);//следующий шаг
until a<e;//пока приращение больше точности
writeln('repeat :=':10,y);
end.[/code]