Question

Быстрее даю 50 баллов!!! Составить программу подсчета суммы S первых 1000 членов гармонического ряда 1+1/2+1/3+1/4+...1/N используя оператор цикла REPEAT.

Answer 1

Program Summa;
Var   S:real;
      N:integer;
Begin
  S:=0;N:=0;
  repeat
    N:=n+1;
    S:=s+1/n
  Until n>1000;
  Writeln(s);
  Readln
End.

Answer 2

Ваше решение дает результат 7.48646986154934, в котором верны только две первые цифры после запятой.