17 = 10001
35 = 100011
57 = 111001
111 = 1101111
149 = 10010101
371 = 101110011
412 = 110011100
603 = 1001011011
777 = 1100001001
1001 = 9
100011 = 35
1010101 = 85
11101 = 29
1001001 = 73
1000100 = 68
<span>
</span>
//прога на Pascal`e
var
a : array[1..10] of shortint;
i, count, sum : byte;
begin
randomize;
write ('Сформированный массив: ');
for i:=1 to 10 do
begin
a[i]:=random (20);
write (a[i], '; ');
inc (sum, a[i]);
end;
writeln ();
write ('Кол-во элементов массива, значение которых превышает СА: ');
for i:=1 to 10 do
if a[i]>(sum/10) then inc (count, 1);
write (count);
end.
РЕШЕНИЕ
1)
Раскрываем с КОНЦА числа
101101₂= 1+4+8+32 =45% девочек
1011₂ = 1+2+8 =11 чел - мальчики - 55%
11 : 0,55 = 20 чел - в классе - ОТВЕТ
2)
а) 4₁₀ = 100₂ = 2²
б) 4₁₀ = 11₃ = 3⁰ + 3¹
в) 6₁₀ = 11₅ = 5 + 1
г) 9₁₀ = 13₆ = 6+3
д) 45₁₀ = 100 - √45=?
е) 66₁₀ = 110 - ?
ж) 7₁₀ = 7₉ и 12₁₀ = 13₉ = 9+3
з) 36₁₀ = 44₈ = 4*8 + 8 = 32 +4
и) 16₁₀ = 20₈ = 2*8
var
a,b,c,d:real;
z,x:integer;
begin
z:=0;
x:=0;
readln(a);
readln(b);
readln(c):
readln(d);
if (b mod a)=0 then writeln('a делитель числа b');
if (с mod a)=0 then writeln('a делитель числа с');
if (в mod a)=0 then writeln('a делитель числа в');
if a>b then z:=z+1;
if b>c then z:=z+1;
if c>d then z:=z+1;
if z=3 then writeln('числа расположены по убыванию');
z:=0;
if a mod 5=0 then x:=x+1;
if a mod 7=0 then x:=x+1;
if x=2 then z:=z+1;
x:=0;
if b mod 5=0 then x:=x+1;
if b mod 7=0 then x:=x+1;
if x=2 then z:=z+1;
x:=0;
if c mod 5=0 then x:=x+1;
if c mod 7=0 then x:=x+1;
if x=2 then z:=z+1;
x:=0;
if d mod 5=0 then x:=x+1;
if d mod 7=0 then x:=x+1;
if x=2 then z:=z+1;
x:=0;
writeln(z,'чисел делятся на 5 и 7 ');
z:=0;
if a<=7 then z:=z+1;
if b<=7 then z:=z+1;
if c<=7 then z:=z+1;
if d<=7 then z:=z+1;
if z>0 then writeln('есть числа больше или равные 7')
end.
предпоследнее не могу прочесть задание, так что сорри.