Автор: olegst1975

olegst1975 — Tue, 12 Jan 2016 10:59:44 +0000

Переменные xi, ni лишние?

[crayon-69d5411c80f39898637125 inline="true" ]
While (TempRez > e) do
 begin
  Rez:=Rez+TempRez;
  inc(i);
  TempRez:=TempRez*x/i;
 end;

[crayon-69d5411c80f39898637125 inline="true" ]

While (TempRez > e) do

begin

Rez:=Rez+TempRez;

inc(i);

TempRez:=TempRez*x/i;

end;

[/crayon]

Комментарии: Решаем задачи Абрамян на Паскале. Proc 40