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

1

Ответы и объяснения

2013-05-10T14:54:57+00:00

pascal

 

for i:=1 to n do

a=a+1/n;

writeln(a);

 

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

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

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