Объем сообщения, содержащего 2048 символов, составил 1/512 часть мбайта.каков размер алфавита, с которого записано сообщение ?

2048 символов.  1 мб = 1024 кбайт  . 1/512 мб = 2 кбайта.  итак, 2 кбайта = 2048 байт = 2048 символов.  итого, 1 символ весит 1 байт.  в 1 байт можно вставить  числа от 0 до 255,  в алфавите 256 символов.

все камни делим на 3 группы: 1 группа- 9 камней, 2 группа- 9 камней,3 группа- 8 камней.

1) взвешиваем между собой первую и вторую группы камней, если одна из групп, легче, то выбираем ее, так как в ней природный камень, если они весят одинаково, то выбираем третью группу.

2) а)если при первом взвешивании выбрана первая или вторая группа, то делим ее на 3 группы по три камня и взвешиваем между собой две группы по 3 камня. если одна из групп легче, то выбираем ее, так как в ней природный камень, если они весят одинаково, то выбираем третью группу.

        б) если при первом взвешивании выбрана третья группа, то делим ее на 3 группы, где в первой группе 3 камня, во второй группе 3, камня, в третьей группе 3 камня и взвешиваем между собой две группы по 3 камня. если одна из групп легче, то выбираем ее, так как в ней природный камень, если они весят одинаково, то выбираем третью группу.

3) а) выбираем 2 любых камня и взвешиваем их, если один из них легче, то природный камень найден. если они весят одинаково, то оставшийся 3 камень- природный.

        б) взвешиваем 2 камня и находим природный

program n1; uses crt; var a,b,c,sum: array[1..100] of integer; srb: array[1..100] of real; i,k,n: integer; sr: real; beginclrscr; randomize; writeln('vvedite kol-vo figuristov'); readln(n); writeln('rezultaty'); for i: =1 to n do begin a[i]: =random(10); write(a[i]: 4); end; writeln; for i: =1 to n do begin b[i]: =random(10); write(b[i]: 4); end; writeln; for i: =1 to n do begin c[i]: =random(10); write(c[i]: 4); end; writeln; writeln('summa ballov'); for i: =1 to n do begin sum[i]: =a[i]+b[i]+c[i]; write(sum[i]: 4); srb[i]: =sum[i]/3; if srb[i]> sr then begin sr: =srb[i]; k: =i; end; end; writeln; writeln('srednii rezultat'); for i: =1 to n do write(srb[i]: 4: 2,' '); writeln; writeln('pobedil figurist ',k,' s rezultatom ',sr: 2: 2); readln end.