Сколько слагаемых должно быть в сумме 1+ 1/2+1/3+..+ 1/n, чтобы сумма оказалась больше 5

Question

Информатика: Сколько слагаемых должно быть в сумме 1+ 1/2+1/3+..+ 1/n, чтобы сумма оказалась больше 5

ksubol777 · Answer

Var N :integer;var A: real;beginA:=0;N:=0;while (A) 5 do begin  N:=N+1;  A:=A+(1/N);   end;WriteLn ( Всего ,N, слагаемых );end....