1 бит = 0.125 байтам
1 килобит = 125 байтам
1 мегабит = 125000 байтам
1 байт = 8 битам
1 килобайт = 8000 битам
1 мегабайт = 8000000 битам
Var s,s0:string;
begin
write('введите строку: ');
readln(s);
write('введите подстроку: ');
readln(s0);
if pos(s0,s)<>0 then writeln('Да') else writeln('Нет');
end.
Тест №1
введите строку: qwerty
введите подстроку: wer
Да
Тест №2
введите строку: qwerty
введите подстроку: 1wer
Нет
1. 75013 (10) -> x (2)
10010010100000101 (2).
2. 11101110100 (2) -> :
x (10) - 1908 (10).
x (8) - 3564 (8).
x (16) - 774 (16).
Ответ: acdeb
Решение:
Исходная строка порождает три комбинации:
100 011 01 10 110
100 01 10 110 110
и
10 00110110110.
Третья исключена, потому что ни один символ не начинается с двух нулей.
Во второй два последних символа одинаковы.
Следовательно, первая комбинация верна.