Дверь открыть
замок замкнуть ключь и открыть или провернуть
окно открыть
стекло разбить или стукнуть
машину толкать
сиденье сидеть.
Это может быть любое число
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=70;
var a:=ArrRandom(n,0,2); a.Println;
Writeln('Количество нулей на нечетных местах: ',
Range(0,n-1,2).Select(i->a[i]).Where(t->t=0).Count)
end.
<u>Пример</u>
0 2 1 2 2 0 2 1 2 2 2 2 1 1 2 2 2 2 1 2 2 2 0 2 0 0 2 0 2 0 0 2 2 0 2 1 1 0 0 2 0 2 0 1 2 2 0 2 0 0 2 0 2 1 1 0 2 1 2 1 0 2 1 2 1 0 0 1 2 1
Количество нулей на нечетных местах: 11
- - - - - - - - - -
begin
var n:=35;
var a:=ArrRandom(n,0,2); a.Println;
Writeln('Количество единиц на четных местах: ',
Range(1,n-1,2).Select(i->a[i]).Where(t->t=1).Count)
end.
<u>Пример</u>
1 2 0 0 1 1 2 1 1 1 0 2 1 2 2 1 1 1 0 1 0 0 2 2 2 1 2 1 2 2 1 2 0 1 1
Количество единиц на четных местах: 9
1) 56(10) = Х(2)
56₁₀ = 111000₂
2) 56(10) = Х(8)
56₁₀ = 70₈
3) 56(10) = Х(5)
56₁₀ = 211₅
4) 23С(16) = Х(10)
23C₁₆ = 572₁₀
23C₁₆ = 2 * 16² + 3 * 16¹ + 12 * 16⁰ = 2 * 256 + 3 * 16 + 12 * 1 = 512 + 48 + 12 = 572₁₀
2i=N
2i=256
I
i=8 бит, (1 байт)
4*1=4байта информации