Всоревнованиях по ориентированию участвуют 768 спортсменов. специальное устройство регистрирует финиш каждого из участников, записывая его номер с использованием минимально возможного количества битов, одинакового для каждого спортсмена. каков будет информационный объём сообщения (в байтах), записанного устройством, после того как финишируют 200 спортсменов?

uses crt; var

  v,r,h: real; begin  write('r='); readln(r);   write('h='); readln(h);   v: =pi*sqr(r)*h;   write('v=',v); end.

паскаль

откомпилирован в: pascal abc

program z1; uses crt; var    s: string;     c: char;     i: integer; begin        write('  vvedite strocy:   ');         readln(s);                 writeln();                 write(' vvedite sivol dl poiska:   ');         readln(c);                 writeln();         for i : = 1 to length(s) do         if s[i] = c then //        begin                  writeln(' simvol prinadlech stroce = ', s);                   break;         end;         if s[i] < > c then writeln(' simvola net v stroke = ', s); end.