:выполните сложение: 1. 0110+0110= 6. 1101+0110= 2. 11001+10111= 7. 1010+011= 3. 10001+11101= 8. 10111+1011= 4. 11001+11100= 9. 111010+1110= 5. 11000+11101= 10. 110011+100011= 10. : выполните вычитание: 1. 11010-01101= 6. 10111-1001= 2. 1101-0110= 7. 111011-11001= 3. 1101-111= 8. 10111-11100= 4. 10001-1011= 9. 11110-1001= 5. 11011-1001= 10. 101011-10111=

Сложение:
1)1100
2)110000
3)101110
4)110101
5)110101
6)10011
7)1101
8)100010
9)1001000
10)1010100

Количество информации определяется величиной, показывающей насколько уменьшилось наше незнание в вопросе.
1. Если на светофоре горит желтый свет и мы не знаем, какой свет горел на нем до желтого, то возможны два исхода - зеленый свет и красный свет. Какой бы из них потом не загорелся, мы получим выбор 1 из 2 возможных. А этому соответствует один бит информации.
2. Если на светофоре горит красный свет и это "нормальный светофор", то мы ЗНАЕМ, что после красного света всегда следует желтый. Поэтому при зажигании желтого света наше незнание не меняется, следовательно, мы получаем ноль бит информации.

{PascalABC}

Program Puzzle;

var  

 R,day:integer;  

 week:array[1..7] of string;

 i:integer;

 s:string;

begin

 week[7]:='Воскресенье';

 week[6]:='Суббота';

 week[5]:='Пятница';

 week[4]:='Четверг';

 week[3]:='Среда';

 week[2]:='Вторник';

 week[1]:='Понедельник';

 s:=' -=Alphaeus=- ';

 for i:=1 to 22 do begin write(s[i]); sleep(200) end;

 writeln; writeln('ОК, Задумайте день недели (номер от 1 до 7)');

 writeln('Удвойте этот номер');

 writeln('Увеличьте результат на 5');

 writeln('Умножьте полученное число на 5');

 writeln('Теперь то, что получилось, умножьте на 10');

 writeln('Введите полученный результат'); readln(R);

 day:= round((R-250)/100);

 writeln('');

 case day of

   1..7: writeln('      Вы задумали ',week[day]);

   else writeln('Что-то пошло не так... Либо вы задумали не число между 1 и 7, либо ошиблись в рассчётах')

 end;

 writeln('');

end.