FOR i = 1 TO 14
s = s + i
NEXT i
<span>PRINT "s=";s</span>
Всего возможных вариантов N=16.
Подставим это в формулу
Таким образом, 4 бит информации несет сообщение
//PascalABC.Net 3.2
begin
var time:=readinteger('Введите время суток: ');
if time in [0..5] then write ('Ночь')
else if time in [6..11] then write ('Утро')
else if time in [12..18] then write ('День')
else write ('Вечер');
end.
Для того, чтобы запись числа оканчивалась на 8, это число должно делится на основание системы счисления с остатком 8. Следовательно, число 30-8=22 должно делится на это число без остатка, причём число строго больше восьми. Получаются числа 11 и 22.
5, 4, 2, 3, 1, 6. Складывай всё что в квадратных скобках и умножай на кол-во повторов. Вперед это знак +, назад это -