Komentar

Jumat, 05 Juli 2013

Dua Pangkat

Posted by M Habibie 19.47, under | No comments





var
 
n : integer;
 




begin
 
 readln(n);
 
 while (n mod 2 = 0) do
 begin
  n:=n div 2;
 end;
 
 if (n=1) then
  writeln('TRUE')
 else
  writeln('FALSE');
 
end.

0 komentar:

Posting Komentar

Your Ip Address

Your IP Address

IP

Popular Post

Popular Posts

  • Hymne Titian Teras
    Kami putra jambi Siswa titian teras menjunjung tinggi citra pribadi, luhur Demi cita-cita Demi kemerdekaan Rela berkorban ...
  • Pandangan saya terhadap Pemilu 2014
    Dalam beberapa hari lagi kita (indonesia) akan melaksanakan yaitu pemilihan umum Presiden dan wakil presiden. akan tetapi sekarang ini ...
  • Apa itu PHP dalam Bahasa Pemograman??
    PHP   adalah teknologi yang diperkenalkan tahun 1994 oleh Rasmus Lerdorf. Beberapa versi awal yang tidak dipublikasikan digunakan pada ...
  • Floor And Ceiling
    var   floor , ceiling :  longint ;   n :  real   ;
  • While
    var   kal:  string ;  
  • Nomor Urut menggunakan Array
    type  carnivora=(Singa,Puma,Macan,Beruang,Serigala,Musang,Kucing); var  bb: carnivora;  x:array[singa..kucing] of byte;
  • Galaxy Note 10.1
    VIVAnews  - Melanjutkan inovasi seri Galaxy Note, Samsung kembali meluncurkan produk tablet terbarunya, Galaxy Note 10.1. Tablet penerus...
  • Nevelostos
    Futsal ,, (?) saya awal ny bermain futsal hanya iseng" saja , ketika suatu masalah yang mengakibatkan saya di skor dalam di SMA say...
  • Cinta
    Cinta merupakan Anugrah terindah Karna tanpa cinta hidup seseorang akan terasa hampa Cinta juga bisa membuat orang menjadi sisi ...
  • Luas Segitiga
    var   a: longint ;   t: longint ;   l: real ;