Допожіть знайти помилку. Написав программу для розрахунку кореня із двох 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.
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете добавлять вложения