(60*1024*1024*8)/(16*1000*2*24)=655,36с
655,36/60=11мин
Program n1;
var st: string;
i,k: integer;
begin
st:='абракадабра';
k:=0;
for i:=1 to st.Length do
if st[i]='а' then k:=k+1;
writeln('в этом слове ',k,' букв а');
end.
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var s:=ReadlnString('Вводите:');
Write('Кол-во слов: ',s.ToWords.Count)
end.
<u><em>Тестовое решение</em></u>
Вводите: А роза упала на лапу Азора
Кол-во слов: 6
Нужно перемножить количество возможных вариантов каждой лампочки:
3*3*2*2*2*2*2 = 288
Ответ: 288 различных сигналов можно передать с помощью панели