Var
i, n: integer;
sum, x: real;
begin
n:= 7;
sum:= 0.0;
for i:= 1 to n do
begin
write(i, '-е число = ');readln(x);
sum := sum + x
end;
writeln('Выпадет ', round(sum/n));
case round(sum/n) of
1,5,7,9,11,13,15: writeln('Красное');
2,4,6,8,10,12,14,16: writeln('Чёрное');
3: writeln('Зелёное');
else writeln('Неизвестный цвет');
end;
readln;
end.
Пример:
<span>1-е число = 2
2-е число = 4
3-е число = 9
4-е число = 5
5-е число = 1
6-е число = 6
7-е число = 8
Выпадет 5
Красное</span>
N=16
K=2048
16ти символьный авфавит это четыре знака например: 0000
i=4
множим символы на бит шифра.
2048×4=8192
Теперь считаем сколько килобайт весит сообщение
8192:8000=1.024
Решение задач - в прилагаемом файле. Решение приводится, что называется, "в лоб", то есть без оптимизации (такого в условиях нет). Это в первую очередь, относится к 1 задаче, хотя и остальные можно улучшить, если потребуется.
1-2
2-1
3-5
4-3
5-4
Цифры по порядку вместе с масками