Чес гря не помню, как это делается по правилам... но по идее - каждый разряд - это степень двойки (как в десятичной - степень десятки - 1, 10, 100, 1000) то есть тут 1 единица ноль двоек ноль двоек в квадрате 1 двойка в кубе, 1 двойка в четвертой степени и одна - в пятой итого 1+8+16+32 = 57
Условие Фано означает, что никакое кодовое слово не может быть началом другого кодового слова. Поскольку буква Н кодируется нулем, значит, мы не можем кодировать Л и М таким образом, чтобы оно начиналось с нуля. Значит, будем кодировать так, чтобы начиналось с единицы. Допустим, Л - 11. Тогда М невозможно закодировать двумя символами. Значит, будем использовать три. Пусть Л - 110, а М - 111. Следовательно: Н = 0 (1 символ) К = 10 (2 символа) Л = 110 (3 символа) М = 111 (3 символа)
begin Write('Введите натуральное число: '); Readln(n); s := ((n + 1) * n) div 2; { сумма арифметической прогрессии } Writeln('Сумма натуральных чисел от 1 до ', n, ' равна ', s) end.
Результат выполнения программы: Введите натуральное число: 10 Сумма натуральных чисел от 1 до 10 равна 55
var i: integer;
begin Writeln('Квадраты первых пяти нечетных натуральных чисел'); i := 5 * 2 - 1; while i > 0 do begin Writeln(i:2, sqr(i):5); i := i - 2 end end.
Результат выполнения программы: Квадраты первых пяти нечетных натуральных чисел 9 81 7 49 5 25 3 9 1 1
то есть тут
1 единица
ноль двоек
ноль двоек в квадрате
1 двойка в кубе,
1 двойка в четвертой степени и
одна - в пятой
итого
1+8+16+32 = 57
прально я посчитал?)
если прально, то -
Ура!))