Ответы
Ответ дал:
0
var
s: real;
n, i: integer;
begin
readln(n);
s := 0;
for i := 1 to n do
s := s + (i + 1) / i;
writeln(s);
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
9 лет назад
9 лет назад