Program task1;
var a :integer;
begin
randomize; a:= 0; while (a <> 5) and (a <> 6) do a:= random(7); writeln(a);
<span>end.
program task2;
var Digit, i :integer; DigitStr :string;
begin
readln(Digit); str(Digit,DigitStr); for i:= length(DigitStr) downto 1 do write(DigitStr[i]);
<span>end.
program task3;
var Digit :integer; NewDigit, DigitStr :string;
begin
readln(Digit); str(Digit,DigitStr); NewDigit:= DigitStr[3] + DigitStr[4] + DigitStr[1] + DigitStr[2]; writeln(NewDigit);
<span>end.</span></span></span>
1Б
2Б+1К
3Б+2К+1С
1Б+3К+2С
2Б+1К+3С
3Б+2К
3К
Где 1,2,3 - номера башен
Дано:
i=5(бит)
Найти: min и max мощность алфавита.
Решение:
i=Log₂N ,где N - кол-во символов
N=2⁵=32 символа - это максимальное значение мощности , так как для кодировки 33 символов нужно 2⁶ бит для символов [33;64].
По такому же принципу ищем минимальное значение, т.е. 2⁴=16 => min значение равно 2⁴+1=16+1=17 [17;32]
Вообще нужно понимать множество чисел ,которое можно кодировать 5 битами оно принадлежит [0;32] , но так как объём точно равен 5 битам, то работаем по подмножеству[17;32]
Ответ: 17;32.
3)коньюртер изображен на данной схеме