Даны действительное a и натуральное n. Вычислить: 1 + 1/2 + 1/3 +1/4 + … + 1/n;

Question

Даны действительное a и натуральное n. Вычислить: 1 + 1/2 + 1/3 +1/4 + … + 1/n;

Answer 1

pascal

 

for i:=1 to n do

a=a+1/n;

writeln(a);

 

если не сработает измени i:=1 на i:=0

я не занимаюсь просто паскалем 

только с++ только хардкор