VCT cho phép nhập số nguyên dương N rồi thực hiện: – Cho biết n có phải là một lũy thừa của 2 hay không.

0 bình luận về “VCT cho phép nhập số nguyên dương N rồi thực hiện: – Cho biết n có phải là một lũy thừa của 2 hay không.”

1. var

              so,n:longint;

   Begin

               write(‘Nhap n: ‘); readln(n);

               so:=1; 
              while so<n do so:=so*2; 
              if so=n then write(n,’ la luy thua 2′) else write(n,’ khong la luy thua 2′);

              Readln;

   End.

   Bình luận

2. uses crt;
   var i,n,lt:longint;
   begin
   clrscr;
      write(‘Nhap n: ‘);readln(n);
      lt:=1;
      While lt<n do lt:=lt*2;
      if lt=n then writeln(‘N la mot luy thua cua 2’) 
      else writeln(‘N khong la mot luy thua cua 2’);
   readln
   end.

   Bình luận