В первом каждый символ кодируется 4-мя битами т.к. 16 это 2^4, во втором - 8-ю битами, т.к. 256 это 2^8. Значит во втором тексте в 8/4 = 2 раза больше информации.
Var A,R:integer;
Begin
WriteLn('Выберите тип единицы измерения времени: 1 - секунда, 2 - минута, 3 - час, 4 - сутки, 0 - выход.');
ReadLn(R);
While R<>0 do
Begin
Write('Введите значение этой единицы времени: ');
ReadLn(A);
Case R of
1:WriteLn(A,' сек = ',(A/60):0:3,' мин = ',(A/3600):0:3,' ч = ',(A/86400):0:3,' сут');
2:WriteLn(A,' мин = ',(A/60):0:3,' ч = ',(A/1440):0:3,' сут = ',A*60,' сек');
3:WriteLn(A,' ч = ',(A/24):0:3,' сут = ',A*3600,' сек = ',A*60,' мин');
4:WriteLn(A,' сут = ',A*24,' ч = ',A*1440,' мин = ',A*86400,' сек');
End;
WriteLn;
WriteLn('Выберите тип единицы измерения времени: 1 - секунда, 2 - минута, 3 - час, 4 - сутки, 0 - выход.');
ReadLn(R);
End;
End.
А)......
1)А=0, В=0
(0→0)&(0v1)=1&1=1
2)A=1, B=0
(1→0)&(1v1)=0&1=0
3)A=0, B=1
(0→1)&(0v0)=1&0=0
4)A=1, B=1
(1→1)&(1 v0)=1&1=1
б).......
1) A=0, B=0
(0<=> 0)&(0&0)v (1&1)= 1&0 v1= 0v1=1
2) A=1, B=0
(1<=>0)&(1&0)v(0&1)=0&0v0=0v0=0
3) A= o, B=1
(0<=>1)&(0&1)v(1&0)=0&0v0=0v0=0
4) A=1, B=1
(1<=>1)&(1&1)v(0&0)=1&1v0=1&0=0