1 Кбит = 1024 бит
0.125 Кбит * 1024 = 128 бит
Program pr;
uses crt;
Var x:integer;
Begin
Writeln('введите день недели');
readln(x);
case x of
1:Writeln('5 пар');
2,3:Writeln('4 пары');
4:Writeln('3 пары');
5:Writeln('2 пары');
6,7:Writeln('пар нет');
end;
readln;
end.
==========================================================
Клод Шеннон - американский ученый в 40-х годах ХХ века, основатель теории информации.Согласно Шеннону, информация это снятая неопределенность знания человека об исходе какого-то события.