Ответы
Ответ дал:
0
var
i,n:integer;
S:real;
begin
readln(n);
for i:=1 to n do
S:=S+(1/(2*i));
writeln (s:0:2);
end.
Приложения:
![](https://st.uroker.com/files/c77/c775cfac08c2b2634315c9810d866fe1.png)
Вас заинтересует
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад