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