Построй дерево каталогов. Даны полные имена файлов. C:\Документы\Образование\Задание. doc
C:\Документы\Документация\Квартал. xls
C:\Документы\Документация\Указания. txt

Наливаешь в 3-х литровую, переливаешь в 5, опять в 3-литровую, и опять в 5-ти, в трех литровой остается 1 литр. из пятилитровой выливаешь в 8-литровую назад, из 3- литровой переливаешь оставшийся литр в 5-литровую и еще раз полную трех литровую, у тебя в 8-литровой останется 4 литра и в 5-литровой тоже

объем информации одного измерения будет равна 7 бит ();

станция сделала 8192 измерения - умножим на кол-во информации, необходимое для записи одного измерения:   8192*7=57344 бит=7168 байт = 7 килобайт

паскаль

откомпилирован в: 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.

var

  n,i,a: integer;

begin

  readln(n);

  for i: =1 to n do

  begin

  read(a);

  write(abs(a),' ');

end;

end.