Открываем "Мохнатую азбуку" Бориса Заходера и читаем названия животных на все буквы алфавита.
a. Слово ёж можно зашифровать рисунками жирафа и зебры.
b. Алгоритм расшифровки. 1) смотрим картинку животного. 2) берём его первую букву. 3) берём предыдущую букву.
c. Расшифровать сообщение, которого нет, очень трудно.
d. Нет животных на такие буквы: Й, Ь, Ы, Ъ, Ю. Интересная ситуация с буквой Ю. Вот стихи: Это Южный Ктототам. Я его придумал сам. Я вам честно говорю: Зверя нет на букву Ю! В одной книге я видел иллюстрацию к этой букве. В качестве Южного Ктототама неожиданно был нарисован... негр. Таким образом, нельзя закодировать буквы: И, Щ, Ь, Ы, Э.
Uses graphabc; var i, j: integer; ar: array[1..10]of integer; b: boolean;
label l1; begin b := false; for i := 1 to 10 do ar[i] := random(10, 300); l1: b := false; for i := 1 to 10 do for j := 1 to 10 do if((ar[i] = ar[j]) or (abs(ar[i] - ar[j]) < 10)) and (i <> j) then begin b := true; ar[i] := random(30, 300); end; if b = true then goto l1; window.Init(0, 0, 800, 600, clwhite); window.IsFixedSize := true; randomize; lockdrawing; pen.Width := 5; for i := 1 to 10 do begin pen.Color := rgb(random(0, 255), random(0, 255), random(0, 255)); drawcircle(400, 300, ar[i]); redraw; end; end.
а) [LATEX]1*{2}^{9}+1*{2}^{8}+0*{2}^{7}+0*{2}^{6}+1*{2}^{5}+1*{2}^{4}+1*{2}^{3}+0*{2}^{2}+1*{2}^{1}+1*{2}^{0} = 827[/LATEX]
б) [LATEX]6*{8}^{2}+7*{8}^{1}+1*{8}^{0} = 441[/LATEX]
в) [LATEX]4*{16}^{2}+1*{16}^{1}+10*{16}^{0} = 1050[/LATEX]
г) [LATEX]1*{2}^{6}+1*{2}^{3} = 72[/LATEX]
д) [LATEX]4*{8}^{2}+1*{8}^{1}+3*{8}^{0} = 267[/LATEX]
е) [LATEX]1*{16}^{0}+1*{16}^{0}+8*{16}^{0} = 280[/LATEX]