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

0 голосов
38 просмотров

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


Информатика (190 баллов) | 38 просмотров
Дан 1 ответ
0 голосов

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.

(26 баллов)