Игра рассчитана на 2 игрока. Всего играло 4 человека. В результате всех игр каждый поиграл с каждым по 2 раза. Определить какое количество информации несет в себе сообщение об одной из этих игр.

2000 - k

16 бита - i

v=k*i=2000*16=32000 бита=4000 байтов

var a: array [1..10] of integer;

s,i,c,b: integer;

begin

  read(c,b,n);

  randomize;

  for i : = 1 to n do

        a[i]: = random(b) -c+1;

  for i: = 1 to n do

        if i mod 2 = 0 then s: =s+1;

  writeln(s);

end.

var n,s: integer;

begin

  read(n);

  while n> 0 do begin

      s: =s+n mod 10;

      n: =n div 10;

  end;

  writeln(s);

end.

6. ответ 4)

7. ответ 2)