Найти сумму ряда 1+1/2+1/3 + ... + 1/50 (for)

Выходные данные: вывести сумму ряда.

Question

Маркел

18 июня, 23:07

+5

Ответы (1)

Знаете ответ на вопрос?

Пантелей · Answer 1

Я надеюсь вы в 5 классе ...

var i: integer;

sum:real;

begin

sum:=0;

for i:=1 to 50 do

sum:=sum+1/i;

writeln (sum) ;

end.

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