BAB 1C : Perulangan - Dua Pangkat

Solusi BAB 1C : Perulangan - Dua Pangkat

program pangkatdua;

var m,n:longint;

begin

read(N);

m:=1;

while m<n do m:=m*2;

if m=n then writeln('TRUE') else writeln('FALSE');

readln; readln end.