<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=Arr(3,9,1,3,5,8,5,3,6,7,6,5,4,6,1,81); a.Println;
a.IndexesOf(t->t=a.Min).Select(t->t+1).Println
end.
<u>Результат</u>
3 9 1 3 5 8 5 3 6 7 6 5 4 6 1 81
3 15
Насколько я знаю ответ будет: Г, А, В, Б
Ответ:
67,5
Объяснение:
N=2^i
512=2^i
i=9 (цвет можно закодировать 9 битами)
200*300*9=540000 бит=67500 байт=67,5 кб
Program A1;
var a,b:Integer; {Можно и real}
begin
readln (a,b);
if a<b then writeln ('Число а больше числа б') else writeln ('Число б больше числа а');
end.
Мощность алфавита N=10
вес одного символа в битах i:
i≈3,5=4 (округляем в большую сторону)
тогда вес сообщения I считаем по формуле I=k*i, где k - количество символов, k=10
I=4*10=40 бит
ответ: 40 бит