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

Question

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

Answer 1

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