12 способами можно составить 2 танцевальные пары
Var i,sum,n,count: Integer;
begin
writeln('Введите максимальное число диапазона');
readln(n);
for i:=1 to n do
begin
Inc(sum,i);
Inc(count);
end;
writeln('Кол-во чисел: ',count);
writeln('Сумма чисел равна: ',sum);
end.
1) 34CE16 это шестнадцатиричная система счисления. Если перевести её в двоичную получится число 1101001100111000010110
Остаётся только посчитать нули и единицы
2) если перевести число 5768 в двоичную систему, то получится число 1011010001000
Считайте единицы и нули.