pascal
for i:=1 to n do
a=a+1/n;
writeln(a);
если не сработает измени i:=1 на i:=0
я не занимаюсь просто паскалем
только с++ только хардкор
