<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(13,100,999); a.Println;
var s:=a.Where(t->t.ToString.Contains('2'));
Writeln('Сумма отобранных чисел равна ',s.Sum,
', их количество равно ',s.Count)
end.
<u>Пример</u>
447 568 576 760 708 373 474 764 520 907 654 623 414
Сумма отобранных чисел равна 1143, их количество равно 2
Разрядность кода = log(2)8 = 3 (2^3=8)
000, 001, 010, 011, 100, 101, 110, 111
1 г 2б 3в вот на постарайся выполнять самостоятельно
1) Дано:
k = 4096 сим.
I = 3.5 Кбайт
Найти N = ?
Решение:
N = 2^i
I = k*i
i = I/k
3.5 Кбайт = 3584 байт = 28672 бит
i = 28672 / 4096 = 7 бит
N = 2^7 = 128 символов
2)
Глубина цвета = 350 Кбайт / (1280 * 320 пикселей) = 350 * 8 * 1024 бит / 409600 пикселей = 2867200 бит / 409600 пикселей = 7.0 бит
Кол-во цветов = 2^7.0 бит = 128.0 цветов
3)
280 Гбайт = 280 * 1024 * 1024 * 1024 * 8 бит = 2405181685760 бит
700 Мбайт = 700 * 1024 * 1024 * 8 бит = 5872025600 бит
Кол-во = 2405181685760 / 5872025600 шт = 409.6 шт ~= 410 шт (округляем в большую сторону так как кусками тут быть не может)