Дано вещественное число а . найти такое наименьшее m, при котором: 1+ 1/2+1/3++ 1/m> a

// pascalabc.net 3.0, сборка 1160 от 05.02.2016 function sharm(m: integer): real: =range(1,m).select(x-> 1/x).sum; begin   var a: =readreal('a=');   var m: =1;   while sharm(m)< =a do inc(m);   writeln('m=',m) end. тестовое решение: a= 5 m=83 указанный ряд - это известный в расходящийся гармонический ряд. его приближенное значение суммы можно определить по формуле эйлера: нам требуется определить m, для которого s(m)> a, тогда будем искать m, отбрасывая дробную часть полученного результата, а потом делать уточнение путем непосредственного вычисления сумм. // pascalabc.net 3.0, сборка 1160 от 05.02.2016 const c=0.577215664902; // постоянная эйлера-маскерони function sharm(m: integer): real: =range(1,m).select(x-> 1/x).sum; begin   var a: =readreal('a=');   var m: =1;   if a< =3 then begin       while sharm(m)< =a do inc(m);       writeln('m=',m)       end   else begin       var s: real: =int(exp(a-c));       if a< 10 then begin           m: =trunc(s);           while sharm(m)< =a do inc(m);           writeln('m=',m)           end       else writeln('m=',s)       end end. в этом случае можно проводить оценочный расчет для больших значений а: a= 200 m=4.05709150011779e+86

1) 24+18+12=54 (ч.) 2) 54-35=19 (ч.) не любят не один вид спорта. 3) 10+8+5=23 (ч.) - любят 2 или больше видов спорта. 4) 23-19=4 (ч.) - любят все три вида спорта.

ответ: 4 человека любят три вида спорта.

Program grapho; uses crt ,graphabc; var xc ,yc ,r1 ,r2 ,rc ,ro ,n ,i ,x ,y : integer;     a : real; begin repeat write ( 'количество отверстий от 3 до 7 n=' ); read (n ); until n in [3..7 ]; clrscr; hidecursor; xc : =windowwidth div 2; yc : =windowheight div 2; r1 : = 50; r2 : = 150; rc : = 100; ro : = 30; a : =2 *pi /n; circle (xc ,yc ,r2 ); circle (xc ,yc ,r1 );   for i : =1 to n do   begin   x : =xc +round (rc * cos (a *i ) );   y : =yc -round (rc * sin (a *i ) );   circle (x ,y ,ro );   end; end.