Наука занимающаяся изучением способов передачи, хранения и обработки информации

разделим монеты на 3 кучки по 9 монет. положим на чаши весов первую и вторую кучки; по результату этого взвешивания мы точно узнаем, в какой из кучек находится фальшивка (если весы покажут равенство, то она - в третьей кучке). теперь, аналогично, разделим выбранную кучку на три части по три монеты, положим на весы две из этих частей и определим, в какой из частей находится фальшивая монета. наконец, остается из трех монет определить более тяжелую: кладем на чаши весов по 1 монете - фальшивкой является более тяжелая; если же на весах равенство, то фальшивой является третья монета из части.

с алгоритмом

const  n = 5;   m = 5; var  a, b: array[1..n, 1..m] of integer;   c: array[1..n, 1..m] of real;   i, j, s, count: integer; begin  for i : = 1 to n do    for j : = 1 to m do begin      a[i, j] : = random(20);       b[i, j] : = random(20);       s : = s + a[i, j] + b[i, j];       inc(count);     end;   writeln('ср. арифметическое эл.: ', s / count);   for i : = 1 to n do    for j : = 1 to m do begin      c[i, j] : = s / count;       write(c[i, j], ' ');       if(j mod m = 0) then writeln;     end; end.