Можно решить с помощью программы на Паскале.
Работа проверена в версии PascalABC.NET 3.4.2.1837 (12.10.2018)
var
a, x: BigInteger;
n: Integer;
begin
x := ReadInteger('введите основание степени');
a := x ** 10;
n := 0;
repeat
if (a mod 2) = 1 then
n += 1;
a := a div 2;
until a = 0;
writeln('количество единиц в двоичной записи = ', n);
end.
Результаты:
1) для 124^10 -содержится 24 единицы
2) для 252^10 -содержится 27 единиц
3) для 215^10 -содержится 33 единицы
Адрес клетки это - координаты этой клетки
Program proga;
var str:string;
i,counter,pos:integer;
k:char;
a:array[1..255] of char;
begin
k:='*';
counter:=0;
writeln('Введите строку');
readln(str);
for i:=1 to length(str) do begin
if str[i]='А' then begin
inc(counter);
Delete(str,i,1);
Insert(k,str,i);
end;
end;
writeln('Количество символов А ',counter);
for i:=1 to length(str) do begin
a[i]:=str[i];
if a[i]='В' then
a[i]:=' ';
write(a[i]);
end;
end.