10. Садовник

 Садовник посадил за день N деревьев и должен был вылить под каждое деревцо по ведру воды. Так как в день посадки шёл дождь, садовник начал поливку деревьев не в день посадки, а начиная с какого-то K-го дня.

   Сколько дней садовник не поливал деревья, если в последний день он под каждое из деревьев вылил 1/N часть воды из ведра, в предпоследний - 1/(N-1) часть, и т.д., а всего под каждое из деревьев вылил не более, чем по половине ведра воды?

Код решения:

*****

var n, k, m, rez, nn:longint;
   s:real;
begin
    readln (nn);
    n:=nn;
    s:=0;
    m:=0;
    repeat
         s:=s+1/n;
         m:=m+1;
         n:=n-1;
    until s>0.5;
    m:=m-1;
    rez:=nn-m;
    writeln (rez);
end.

*****