посчитайте , нужно сделать программу на С.

var i: integer;

sum:real;

begin

sum:=0;

for i:=1 to 50 do

sum:=sum+1/i;

writeln(sum);

end

точно не помню