viết pt kiểm tra xem N có là lũy thừa của 2 ko (pascal nha) 21/07/2021 Bởi Amaya viết pt kiểm tra xem N có là lũy thừa của 2 ko (pascal nha)
var n,qword; begin write(‘n=’);readln(n); while (n mod 2=0) do n:=n div 2; if n=1 then write(‘true’) else write(‘false’); readln; end. Bình luận
var n,qword;
begin
write(‘n=’);readln(n);
while (n mod 2=0) do
n:=n div 2;
if n=1 then write(‘true’) else write(‘false’);
readln;
end.