Ответы
Ответ дал:
0
begin
var n:=ReadInteger('n=');
var s:=0.0;
for var i:=1 to n do s:=s+1/i;
Writeln('S=',s)
end.
Пример
n= 18
S=3.49510807819631
var n:=ReadInteger('n=');
var s:=0.0;
for var i:=1 to n do s:=s+1/i;
Writeln('S=',s)
end.
Пример
n= 18
S=3.49510807819631
Вас заинтересует
1 год назад
1 год назад
5 лет назад
8 лет назад