16 разрядное число f1d7a несёт какое количество информации равное бит

program p_1; var i, n : integer; a, s : real; b : array [1..1000] of real; begin writeln('введите число а'); readln(a); writeln('введите количество значений массива n'); readln(n); write('введите элементы массива b'); for i: =1 to n do readln(b[i]); writeln('первоначальный массив b'); for i: =1 to n do writeln(b[i]); s: =0; for i: =1 to n do if b[i] > a then s: =s+b[i]; writeln('сумма значений =', s); end.

рrogram summa;

var s, a, b, c : word;

            write('введите a - > '); readln(a);

            write('введите b - > '); readln(b);

            write('введите с - > '); readln(c);

            s=а+в+с

            write(' сумма равна ',s);

            readln

в принципе все, должно быть правильно

остатки от деления 72*n на 105 где n начинается с 2

var i, j: integer;

begin for i : = 2 to 100 do writeln(i*72 mod 105); end.

3967845128451189057249663301026936375429814815875421936027996633072396784512845118905724966330102693637542981481587542193602799663307239

дальше идет повторение т.е. нет остатка 1

то же самое будет если делить 105n с остатком на 72 не будет остатка 1

var a: array[1..5,1..3] of integer;

i,k,j,min,max: integer;

begin

  min=1000;

  max=-1000;

  for i: = 1 to 5 do

      for j: = 1 to 3 do begin

        a[i,j]: = random(256);

      if min> a[i,j] then min: =a[i,j];

          if max< a[i,j] then max: =a[i,j];

  end;

  writeln(min, max);

end.