Var
i,N,A,k:integer;
Begin
k:=0;
Write('N = ');Read(N);
For i:= 1 to N do
Begin
Read(A);
if (A mod 10 = 8) then k:=k+1;
End;
WriteLn(k);
End.
Для решения данной задачи необходимо построить дерево и посчитать, сколько отрезков приходится для каждой буквы.
Например, исходя из рисунка, для буквы "О" есть 1 отрезок - это 0 (итого 1), а для буквы "Е" 2 отрезка - это 1 и 0 (итого 2), для буквы "П" - это 1, 1, 0 (итого 3). Затем необходимо сложить все отрезки и посчитать <span>минимальную общую длину кодовых слов для всех семи букв.</span>
Адреса ячеек С5, С8, С9 диапазона С5:С9 ,удовлетворяющие заданному правилу. (это правильно!)
Или 4,или 1
но больше всего 4
Полагаю здесь ответ нужно написать
При итерациях:
1) s = 3
2) s = 6
3) s = 18;
Вывод 18