Постройте дерево Хаффмана для любых двух фраз из списка ниже:
1) Не руби дрова на траве двора.
2) Прецедент с претендентом.
3) Течёт речка, печёт печка.
Покажите полное решение.
272
420
Ответы на вопрос:
Var m, i: integer; s, p, d: real; begin readln(m); p : = 1; s : = 0; for i : = 1 to m do begin readln(d); s : = s + d; p : = p * d; end; if m > 10 then writeln(s); if m < 10 then writeln(p); end.
Популярно: Информатика
-
Maksim12345102.01.2023 16:39
-
OvenNeON24.01.2020 18:24
-
SvetaMew22.01.2021 06:38
-
rsobal45gmailcom01.05.2023 14:42
-
ukimui12313.08.2021 05:09
-
galaktionov96415.06.2022 13:50
-
sbordog1337bogdan27.12.2020 01:45
-
Karina204819.11.2021 19:14
-
ALexus6725.10.2021 11:19
-
ЯковПервый14.02.2022 23:37