1 байт = 8 бит
128 000 бит делим на 8 = 16000 байт/сек.
Дальше
1 Кб = 1024 байта
250 Кб х 1024 байта = 256 000 байт
Делим их на скорость (16 000 байт за сек)
и получаем 256000/16000 = 16 сек.
Волна:
Волк ' на
Ворона:
Вор + она
Ива:
Иван '
Наташа:
Нота о=а + шар '
2^n =52 ----> n = 6 бит для кодировки одной участницы в одном туре
6*6 = 36 бит =5 байт - для кодировки одной уч. в шести турах
5*52 = 110 байт - объём памяти для всех уч. во всех турах
ответ 110 байт
VB.
Dim msg As String
msg = InputBox("Введите строку")
Dim s As Integer
If msg.IndexOf("K") > -1 Then s += 1
If msg.IndexOf("E") > -1 Then s += 1
If msg.IndexOf("Y") > -1 Then s += 1<span>
If s = 3 Then MsgBox("YES") Else MsgBox("NO")
Pascal.
program chislo;
var x : integer;
msg : string;
begin
write('Введите строку: ');
readln(msg);
if pos(msg,'K')>0 then X:=X+1;
if pos(msg,'E')>0 then X:=X+1;
if pos(msg,'Y')>0 then X:=X+1;
if (x=3) then writeln('YES') else writeln('NO')
<span>end.</span></span>