Спас зайцев с острова A
Спас зайцев с бревна B
A&B
Сохранение мира A
увеличить усилия всех государств B
B→A
Отказываться от помощи A
Сесть в лужу B
→
подчеркивание сверху означает отрицание
Луна сияла A
Июльская ночь была тиха B
Поднимался ветерок C
Пробегал легкий шорох D
A&B&C&D
Ахейские мастера A
оружейники B
ювелиры C
гончары D
художники E
скульпторы F
A&B&C&D&E&
Сильные A
Афины B
Спарта C
Богатые D
Коринф E
A→B&C+D→E
Берегла книги A
Берегла рисунки B
Берегла стихи C
A&B&C
Бурмин A
Ум, нравится женщинам B
Ум приличия C
Ум наблюдения D
Ум без притязаний E
Ум беспечно насмешливый F
A&(B→C&D&E&F)
Вероятно так... за точность не ручаюсь, ибо уже подупоролась
N = 2^i,
где N – мощность алфавита (количество символов),
i – количество бит (информационный вес символа).
I = K * i
где I – информационный объем текста,
K – количество символов в тексте,
i – количество бит (информационный вес символа).
Дано:
K = 512
I = 1/4 часть килобайта = 256 байт = 2048 бит
Найти: N
Решение:
I = K * i
i = I / K = 2048 / 512 = 4 бита
N = 2^i = 2⁴ = 16 символов содержит алфавит племени Мульти
Ответ: г
1. х=40, у=10
2. х=20, у=20
3. х=50, у=20
4. х=56, у=30
5. х=60, у=28
6. х=60, у=40
7. х=70, у=40
8. х=70, у=50
9. х=80, у=50
10.х=80, у=40
11х=90, у=40
12. х=90, у=28
13.х=100, у=28
14. х=100, у=20
15. х=110, у=20
16. х=110, у=10
17. х=40, у=10
===== PascalABC.NET =====
begin
var s := ReadlnString;
for var i := 1 to s.Length do
case s[i] of
'.': s[i] := '0';
'x', 'X': s[i] := '1'
end;
Println(s)
end.
CONST<span> k=10; </span>{k - количество чисел в массиве}VAR<span> a:array[1..k] of integer;</span><span> i,summ,n:integer; </span>{i - счетчик цикла, summ - сумматор, n - количество элементов массива с четным значением}<span> sr:real; {sr - среднее арифметическое} </span>BEGIN summ:=0; n:=0; {Обнуляем счетчики}<span> for i:=1 to k do </span> begin a[i]:=random(50); {Заполняем массив случайными числами}<span> write (a[i],' '); </span>{Выводим массив}<span> if a[i] mod 2=0 then </span> begin<span> summ:=summ+a[i]; </span>{Находим сумму элементов массива с четными значениями} n:=n+1 end end;<span> sr:=summ/n; </span>{Находим среднее арифметическое} writeln; writeln (sr:0:2) {Выводим среднее арифметическое}END.