Сколько различных символов (цифр, букв, знаков пунктуации и т. д.) можно закодировать, используя код азбуки морзе длиной не менее двух и не более трёх сигналов (точек и тире)?
Азбука Морзе позволяет кодировать символы для сообщений по радиосвязи задавая комбинацию точек и тире Сколько различных символов цифр букв знаков пунктуации так далее музыка резать воздух куда звуки морзе длиной не менее четырех-пяти сигналов точек тире
Будем рассуждать так: пусть сумма, которую надо разменять, равна некоторому числу amount. Дадим сначала максимальное количество пятерок (но так, чтобы общая сумма пятерок не превосходила суммы, которую надо разменять). Если нам удалось таким образом разменять всю сумму - победа! - иначе до общей суммы не хватит 1, 2, 3 или 4 рубля.
Самый простой случай из оставшихся - если осталось отдать 3 рубля. В таком случае выдаём оставшуюся трёшку и радуемся выполненной задаче.
Иначе придется изменять количество выданных пятерок - при "жадном" выборе решения не получилось. - Попробуем убрать одну пятерку. Если оставалось выдать 1 рубль или 4 рубля - теперь нужно выдать 5+1=6 рублей или 5+4=9 рублей соответственно, но это можно сделать только трёшками. - Попробуем убрать две пятерки. Если оставалось выдать 2 рубля, то теперь надо выдать 12 рублей, что опять-таки можно сделать трёшками.
Резюмируем. Если amount делится на 5, то надо выдать (amount//5) пятерок и 0 трёшек. Если amount дает остаток 1 при делении на 5, то надо выдать (amount//5 - 1) пятерок и 2 трёшки. Если amount дает остаток 2 при делении на 5, то надо выдать (amount//5 - 2) пятерок и 4 трёшки. Если amount дает остаток 3 при делении на 5, то надо выдать (amount//5) пятерок и 1 трёшку. Если amount дает остаток 4 при делении на 5, то надо выдать (amount//5 - 1) пятерок и 3 трёшки.
Такой алгоритм позволяет дать размен минимальным количеством монет.
Для небольшого удобства в программе этот выбор записан немного по-другому. Код во вложении.
PascalABC.NET Программа считает число нулей стоящих на четных местах в строке, считая первый элемент строки нечетным.
var t : text; a,k,i : integer; begin assign (t,'File.txt'); reset (t); i := 0; k := 0; While not Eof (t) do begin i := 0; While not Eoln (t) do begin read (t,a); if (a = 0) and (i = 1) then k := k +1; if i = 0 then i := 1 else i := 0; end; readln (t); end; close (t); writeln (k); end.
