Var
s1, s2: string;
i: integer;
begin
readln(s1);
for i:=1 to length(s1) do
if s1[i] in ['0'..'9'] then
s2 := s2 + s1[i];
writeln(s2);
<span>end.</span>
Шина команд имеет множество определений, многие из которых не всегда являются чёткими, так например:
1) В случае с реализацией в железе. Это множественное подключение логических элементов через последовательную или параллельню сеть обеспечивающих консестентную доставку информации в системах передачи данных, не обязательно цифровых, например система клапанов двигателя и система регулирования так же является шиной команд но в аналоговой, механической реализации.
2) В случае с пк или процессором ПК в частности шина команд (Command Bus) обеспечивает интерфейс для передачи процессору команд и результата их вычисления(в ряде случаев) по универсальному методу из программной области памяти (ОЗУ,ПЗУ, ППЗУ) зависит от конкретной реализации ВУ в случае с радиометрическими вычислителями, такие как на радарных станциях и стсемах наведения шина команд фактически отсутствует, т.к. несколько снижает скорость обмена данными уступая здесь узкоспециальным интерфейсам.
32=2^6 => Для русского языка 1 символ несет 6 бит инфы.
26=2^i => i = log 26 по основанию 2 = 4,7 бит => Для фр. языка 1 символ несет 4,7 бит инфы.
V информации = 10 * 6 бит = 60 бит (для русского языка)
V информации = 10 * 4,7 бит = 47 бит (для фр. языка)
Значит для русского языка сообщение из 10 знаков несет больше информации.
var
i1,i2,i3,i4,i5,i6:Longint;
begin
For i1:=0 to 9 do
For i2:=0 to 9 do
For i3:=0 to 9 do
For i4:=0 to 9 do
For i5:=0 to 9 do
For i6:=0 to 9 do
if i1+i2+i3=i4+i5+i6 then Writeln('счастливый билет':i1,i2,i3,i4,i5,i6);
Writeln('все миллионеры :D')
end.
Количество информации равно бинарному логарифму (т. е. по основании 2) количества равновероятных возможностей. В бассейне 20 дорожек, выбрана одна (неважно под каким номером) Тогда i = log2 20 (логарифм числа 20 по основанию 2) =(по формуле перехода логарифма к другому основанию) = lg20 / lg2 ≈ 4.32
Ответ 4.32 бит