после writeln() должно стоять ( ;)
и в конце не нужна readln
начало
1 Взять котёл.
2 Налить воду в ведро
3 Перелить воду из ведра в котёл.
4 Развести огонь
5 Поставить котёл на огонь.
6 Взять топор
7 Положить топор в котел.
8 Найти крупу
9 Добавить крупу в котел
10 Достать чистую посуду
11 Снять котёл с огня.
12 Положить получившуюся кашу в посуду.
13 Найти масло
14 Добавить в кашу масло
конец
Дано:
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.
Для любых X>3.
Но. Если говорить только о целых, то Х>=4
//Pascal ABC.NET v3.1 сборка 1219
//Как я понял, количество очков случайно
Var
a,i,s:integer;
begin
randomize;
for i:=1 to 5 do
begin
a:=random(11);
writeln(i,' выстрел -',a);
s:=s+a;
end;
writeln('Сумма=',s);
if s=50 then writeln('Идет с Зиночкой в ресторан') else writeln('На тренировку в тир');
end.
Пример работы программы:
1 выстрел -3
2 выстрел -10
3 выстрел -7
4 выстрел -8
5 выстрел -0
Сумма=28
На тренировку в тир