S:=0;
n:=1;
while 3/(n*n+1)>eps do begin
s:=s+3/(n*n+1);
n:=n+1;
end;

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.