Тема: Допоможіть знайти помилку.
Написана программа для розрахунку суми коренів із 2 n разів двома способами. Программа працює, але рахує неправильно. Де помилка?
Program e;
Var
i,n:integer;
s:real;
Begin
writeln('n');
readln(n);
s:=0;
i:=0;
Begin
repeat
i:=i+1;
s:=sqrt(2+s);
until
n=i;
end;
Begin
while
n=i
do
i:=i+1;
s:=sqrt(2+s);
End;
writeln ('s=',s:0:3);
writeln ('n=',n);
writeln ('i=',i);
writeln ('s=',s:0:3);
writeln ('n=',n);
writeln ('i=',i);
end.