<em>// PascalABC.NET 3.2, сборка 1381 от 04.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<em>Задача М</em>
begin
var a:=ReadInteger.ToString.AdjacentGroup;
var f:=False;
foreach var g in a do
if g.Count>1 then begin
Write('YES'); f:=true; break
end;
if not f then Write('NO')
end.
<u>Примеры</u>
5221
YES
1232
NO
<em>Задача О</em>
begin
var s:=ReadInteger.ToString;
if s.Length<>(s.Distinct).Count then Write('YES')
else Write('NO')
end.
<u>Примеры</u>
212
YES
12345
NO
1. Таблица
2. прямоугольная , многофункциональная
3. создается, размещается ,<span>применяют
4. </span>передают <span>информацию по заданным алгоритмам
5. </span><span>ведомость
Так , или я что-то не поняла ?
</span>
Некоторые примеры.
Непозиционная:
Унарная (единичная) система счисления.
В ее алфавите всего один символ, например [1] или [0].
<span>Позиционные:
</span>Двоичная <span>.
</span>Алфавит: [0,1]
Восьмеричная.
Алфавит: [0,1,2,3,4,5,6,7]
Шестнадцатеричная.
Алфавит: [0,1,2,3,4,5,6,7,8,9, A, B, C, D, E, F]
И т.д.
по формуле N=2 в степени i
32=2 в степени i
32=2 в пятой степени следовательно 2 в пятой степени=2 в степени i
откуда i=5 бит
Ответ: 1 буква алфавита несет 5 бит