Ответы
Гость Var
n : integer;
res : real;
begin
write('n ?');
readln(n);
for var i:=1 to n do res := res + (i+1)/(i*i+1);
writeln(res);
end.
при n=5 ответ 2.52
Нет комментариев
Список предметов
