Решите анаграммы. Тема редактирование текста ВАКАПР-
ВКАВТАС-
МЕЗААН-
БИШОКА-

правка      вставка     замена         ошибка

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

i,s,c,d: integer;

begin

  randomize;

  read(c,d);

  for i : = 1 to 16 do begin

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

      if a[i]> 0 then s: = s + a[i];

  end;

  writeln(s);

end.

1) ln(16)/ln(2) *10*10 бит

2)ln(4)/ln(2) бит

3)2*800*600*32