Pembahasan Soal Latihan TOKI Learning Center

Bab 1 : Pengenalan/ 1C : Perulangan

Dua Pangkat

Link Soal

PROGRAM duapangkat;

VAR

n,x : longint;

BEGIN

x := 1;

readln(n);

while x < n do

begin

x := x*2;

end;

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

end.