Question

Các bạn giải giúp mình với ạ.

Viết chương trình nhập vào một số nguyên dương , in ra ước số lớn nhất của nó là lũy thừa của 2. Ví dụ : nhập 160, in ra 32

Answer 1

uses crt;
var n,x,i,d:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
for i:=n downto 1 do
if (n mod i=0) and (i mod 2=0) then
begin
x:=i;
d:=0;
repeat
x:=x div 2;
inc(d);
until x mod 2=1;
if x=1 then
begin
write(i);
break;
end;
end;
readln;
end.