Var
s, sl, sc: string;
i, k: integer;
begin
write('Введите текст ');
readln(s);
write('Введите слово ');
readln(sl);
s:=' '+s+' ';
<span> sl:=' '+sl+' ';</span>
for i := 1 to length(s) - length(sl) + 1 do
begin
sc := copy(s, i, length(sl));
if sc = sl then inc(k);
end;
if k = 0 then writeln('Не встречается')
else writeln('Встречается ', k, ' раз');
end.
Первая запись = 2 канала * 10 с * 16000 ГЦ * 24 бита = 7680000 бита.
Вторая запись = 1 канал * 10 с * 16000 ГЦ * 24 бита = 3840000 бита.
Общий вес файла: 11520000 бита = 1440000 байт = 1406.25 Кбайт = 1406 Кбайт.
Ответ: 1406 Кбайт.
Сайт пойдет? Если да то лови ссылку http://htmlbook.ru/
110 из 2 в 10 = 6
100 из 8 в 10 = 64
101 из 16 в 10 = 257
257+64+6=327
Ответ: 327
(Лучший ответ)
<span>Виды информации
Информация может существовать в различных видах:
текст, рисунки, чертежи, фотографии;световые или звуковые сигналы;радиоволны;электрические и нервные импульсы;магнитные записи;жесты и мимика;запахи и вкусовые ощущения;хромосомы, через которые передаются по наследству признаки и свойства организмов, и т. д.
</span>