Question

Дано число a>0. Вывести наибольшее из чисел k, для которых сумма 1+1/2+...+1/k<a и саму эту сумму. для прорграммы Paskal.

Answer 1

program count

var k:integer;

      a,s:real;

begin

read(A);

s:=0;

k:=0;

  wile s < a do

     begin

        k:=K+1 

        S:=S+1/k

     end;

end.