Найти сумму ряда 1+1/2+1/3+...+1/50(for)
Выходные данные :вывести сумму ряда.

Я надеюсь вы в 5 классе ... var  i: integer;  sum:real;beginsum:=0; for i:=1 to 50 do     sum:=sum+1/i;writeln(sum);end.