Номер 6 помогите решить в паскале

Номер 6 помогите решить в паскале

Задать свой вопрос
1 ответ
Const eps=0.00001;
var an,s:real; n:integer;
begin
n:=0;
an:=1/2;
s:=0;
while angt;=eps do
 begin
 s:=s+an;
 n:=n+1;
 an:=an*1/(2*(2*n+1));
 end;
writeln('s = ',s:7:5);
end.

Итог:
s = 0.59229
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт