Подскажите сколько количество часов и минут в одном столетии?

Вгоду 365 дней, в одном дне 24ч  следовательно 365 умножить на 24=8760часов в году а в сто летии 100умножить на 8760часов= 876000часов в одном часе 60минут в 24часах следовательно   1440минут в 365 днях 1440умножаем на 365=525600*100=52560000минут в столетии но я ещё не умножила на те часы которые 29 февраля раз в 4 года это получается их в столетии 25   дней следовательно 87600часов+(24*100)=87600+2400=9000часов в столетии следовательно минут(36000*100)+52560000=56160000минут

// pascalabc.net 3.0, сборка 1088 const   n=9;   m=7; var   a: array[1..n,1..m] of integer;   b: array[1..n] of boolean;   i,j,k: integer; begin   randomize;   writeln('*** исходный массив ***');   for i: =1 to n do begin       k: =0;       for j: =1 to m do begin           a[i,j]: =random(225)-112;           write(a[i,j]: 5);           if a[i,j]< 0 then inc(k)           end;       writeln;       b[i]: =k> 3   end;   writeln('*** строки, содержащие больше 3 отрицательных элементов ***');   for i: =1 to n do       if b[i] then write(i,' ');   writeln end. тестовое решение: *** исходный массив ***     89  -71    36  -25  -19    60  -28   -60  -35    20  112  -69    29    74       4  -23    -7  -15  107    64    -4   -82    91  102  -90    81    32  -64     41  -44    21    74    77  -77 -100   -38  -36  100      5  -42    54    46   -52    27  -86  -77    90    30    -2   -76  -14  -58    11    67  -91    59   -50    47  -47    12  -84  -76    11 *** строки, содержащие больше 3 отрицательных элементов *** 1 3 7 8 9

Расстояние от точки до начала координат находится как длина гипотенузы прямоугольного треугольника, катетами которого являются координаты точки. поскольку нам нужны не сами расстояния, а лишь сравнить их, то можно сравнивать квадраты, чтобы не извлекать корня. // pascalabc.net 3.0, сборка 1088 var   x1,x2,y1,y2,r1,r2: real; begin   write('введите координаты первой точки: '); read(x1,y1);   write('введите координаты второй точки: '); read(x2,y2);   r1: =sqr(x1)+sqr(y1); r2: =sqr(x2)+sqr(y2);   if r1> r2 then writeln('ближе вторая точка')   else       if r1< r2 then writeln('ближе первая точка')       else writeln('точки равноудалены') end. тестовое решение: введите координаты первой точки: 16.3 -11.7 введите координаты второй точки: 15.8 12 ближе вторая точка