Просто умножай каждое число на 2
32 64 128 256 512 1024 и так далее
Дневник,телефон,книга (газета),компьютер
Ответ:
program abc;
var m,o,k:int64;
begin
readLn(m);
o:=2000000000;
for i:integer:=trunc(sqrt(m))+1 downto 1 do
if (o>m div sqr(i)) and (m mod sqr(i) = 0) then
begin
o:=m div sqr(i);
k:=sqr(i);
end;
writeLn(k);
end.
Объяснение:
225 в десятичной с.с=11100001 в двоичной с.с
Ответ: 4 (единицы).