Câu hỏi:
Giúp em bài tập về nhà Tổng hợp lớp 8 câu hỏi như sau: viết pt kiểm tra xem N có là lũy thừa của 2 ko (pascal nha)
Trả lời 2:
Gia Sư Hoàng Khang gữi câu trả lời dành cho bạn:
program bai_giai;
uses crt;
var n:integer;
begin
clrscr;
write(‘Nhap N: ‘); readln(n);
while n>2 do
begin
if n mod 2<>0 then
begin
write(‘Khong phai’); readln; exit;
end;
n:=n div 2;
end;
write(‘Phai’);
readln;
end.
Trả lời 1:
Gia Sư Hoàng Khang gữi câu trả lời dành cho bạ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.
