Операторы цикла, Сложный цикл Опции

[Anton-322]

Пожалуйста помогите, вообще не знаю как эту задачу делать: Написать программу, которая вычисляет сумму первых n членов ряда 1+1/2+1/3+1/4+… . Количество суммируемых членов ряда задается во время работы программы.

[Perfez]

Проще простого...

var
 n,i:longint;
 k:extended;
Begin
 ReadLn(n);
 For i:=1 to n do
  k:=k+1/i; 
 WriteLn(k:3:3);
 ReadLn;
End.

[Tan]

k := 0;

перед циклом желательно.

Сообщение отредактировано: Tan - 9.07.2007 15:55