1)6 бит
Так как от 11 до 74 включительно то получаем что всего 64
Количество информации в одном символе можно найти по формуле
N=2^i
64=2^6
Из этого следует что один символ весит 6 бит
2)5541(8)
B43(16)=5503(8)
5503(8)+36(8)=5541(8)
3)Если не ошибаюсь то 5 единиц
<span>172(10) = 10101100(2)
</span>0,25(10) = 0100(2)
10101100,0100(2)
4)BBC
b=101
c=110
d=111
a=100
bcda=101110111100(2)
101110111100(2)=bbc(16)
const
n = 5; m = 5;
var
a: <em>array [0..m, 0..n] of shortint</em>;
i, b, c: <em>integer</em>;
begin
for i := 1 to m do
begin
for b := 1 to n do
begin
a[i, b] := random(-90, 0);
write(a[i, b]:4);
if (i = m) then
if (a[i, b] mod 4 = 0) then
c += 1;
end;
writeln(<em>(i = m) and (b = n)</em> ? ' ' + c : '');
end;
writeln();
<span>end.</span>
Могу в предложить в данном случае использовать goto и метки. Ну, если вы имеете какой то признак неправильных данных, например, это отрицательные значения (предположим, что это неправильные данные) То на этапе, когда вы вводите эти значения, вы должны поставить условный оператор. Т.е.
if a<0 tnen
begin
Writeln('Вы ввели неверные данные');
goto 1
else
goto 2;
Метку 1 вы ставите в начало алгоритма, т.е. туда, откуда вы хотите начать повторное выполнение программы, а метку 2 поставить в продолжение алгоритма, т.е. на тот случай, если данные были введены верно
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
var a:=ReadArrReal(4).Sorted.ToArray;
if (a[0]=a[1]) and (a[2]=a[3]) then Writeln('Можно')
else Writeln('Нельзя')
end.
ШАЛТАЙ–БАЛТАЙ
Шалтай–Балтай
<span>Сидел на стене.</span>