Все перемножить будет объем в битах.
Потом поделить на 8 будет объем в байтах.
Var K,n,i: integer;
begin
writeln('Введите число');
readln(K); n:=0;
for i:=1 to K do
if (i mod 2=1)and(K mod i =0) then n:=n+1;
writeln('Количество нечетных делителей числа равно ', n);
readln
end. Это?
У меня получилось так (1 -- закрашено, 0 -- не закрашено)
100010001
001000100
100010001
001000100
100010001
Итого: 13 клеток
1) 4
2) сомневаюсь в этом ответе (в варианте E)
I - A ,B,D,F,G.H,J
II -E,I
III - C
3)
I - B
II -A
III - F
IV - C
V - G
VI - D
VII -E