Дано действительное число A. Требуется найти первое значение числа N, при котором сумма...

Question

Дано
действительное число A. Требуется найти первое значение числа N, при
котором сумма S=1+1/2+1/3+…+1/N превышает A. Программу
составьте двумя способами: используя цикл с предусловием и цикл с постусловием. В ABC Pascal

Answer 1

Var a, s: real; i: longint;
begin
     readln(a);
     {С предусловием}
     i := 2;
     s := 1;
     while(s <= a) do<br>     begin
          s := s + 1 / i;
          i := i + 1;
     end;
     writeln(i - 1);
     {С постусловием}
     i := 1;
     s := 0;
     repeat
           s := s + 1 / i;
           i := i + 1;
     until(s > a);
     writeln(i - 1);
end.