Песня "smoke on the water" из альбома группы deep purple "machine head" имеет размер 13 677 934 байт. качество музыки составляет 320 килобит / сек. вопрос: какова длительность этой песни?

Решение: 1) 1 килобит = 125 байт, 320*125=40000 2)  13 677 934/40000 =  341,94835 = 342 сек ответ:   342 секунды; 5 минут 42 секунды.

Var       l: array ['a'..'z'] of integer;       s: string;       i: integer;       c: char; begin       read(s);       for i : = 1 to length(s) do               if s[i] in ['a'..'z'] then                       l[s[i]] : = l[s[i]] + 1               else if s[i] = '.' then                       break;             for c : = 'a' to 'z' do               if l[c] > = 2 then                       writeln(c, ' = ', l[c]);             for c : = 'a' to 'z' do               if l[c] = 1 then                       writeln(c, ' = ', l[c]); end.

Бит - это минимальная единица измерения информации. в 16-ричном коде это выглядит так: c1 e8 f2 20 2d 20 fd f2 ee 20 ec e8 ed e8 ec e0 eb fc ed e0 ff 20 e5 e4 e8 ed e8 f6 e0 20 e8 e7 ec e5 f0 e5 ed e8 ff 20 e8 ed f4 ee f0 ec e0 f6 e8 e8 2e если применить к каждому байту функцию xor 55 (исключающее или с числом 55), то получится 94 bd a7 75 78 75 a8 a7 bb 75 b9 bd b8 bd b9 b5 be a9 b8 b5 aa 75 b0 b1 bd b8 bd a3 b5 75 bd b2 b9 b0 a5 b0 b8 bd aa 75 bd b8 a1 bb a5 b9 b5 a3 bd bd 7b самое интересное в этом коде то, что применив к нему снова xor 55, мы получим исходное сообщение.