Program colors;
Uses crt;
var color: integer;
label l1;
Begin clrscr;
l1: write('Введите номер цвета color = ');
readln(color);
case color of 0: writeln('Черный');
1: writeln('Синий');
2: writeln('Зеленый');
3: writeln('Голубой');
4: writeln('Красный');
5: writeln('Фиолетовый');
6: writeln('Коричневый');
7: writeln('Светло-серый');
8: writeln('Темно-серый');
9: writeln('Ярко-синий');
10: writeln('Ярко-зеленый');
11: writeln('Ярко-голубой');
12: writeln('Розовый');
13: writeln('Малиноый');
14: writeln('Желтый');
15: writeln('Белый');
else
begin
writeln('Непривильный номер цвета');
writeln;
goto l1;
end;
end;
readln;
End.
Обозначим:
N - мощность алфавита;
V - объем сообщения (в битах);
K - количество букв в сообщении;
i - количество бит на 1 символ.
Формулы:
N = 2^i;
i = V/K
Переведем объем из КБ в байты: 35* 8 * 1024 = 286720 бит.
Чтобы найти мощность алфавита, нужно найти количество бит на символ. Используем формулу: i = V/K.
i = 286720 бит/71680 симв. = 4 бита.
Зная i, можем найти мощность алфавита: N = 2^i.
N = 2^4 = 16.
Ответ: 16.
Var i: integer;
beginfor i:=35 to 117 doif (i mod 2=0) then write(i:4);writeln;writeln;for i:=45 to 99 doif (i mod 2<>0) then write(i:4);end.
Не очень уверена в решении, поправьте, если что-то не так в рассуждениях.
Золотую медаль можно распределить 15 способами, так как 15 человек; серебряную - 14 способами, так как один человек уже получил золотую медаль; бронзовую - аналогично 13 способами. Тогда всего способов распределения медалей: 15 * 14 * 13 = 2730.
роішмопщпнпаполслащвзвзвщщ
