このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1286978599/568
#  [1] 授業単元 ビット演算: 
#  [2] キーボードから16進数の数値を入力し、左に2ビットシフトさせた値を16進数で出力するプログラムを作成しなさい。なお、左ビットシフト演算子は「<<」である。 
#  

'キーボードから16進数の数値を入力し、左に2ビットシフトさせた値を16進数で出力するプログラムを作成しなさい。なお、左ビットシフト演算子は「<<」である。' :-
        write('16進数の数値を入力してください (16進数は0xから始まること) : '),
        get_line(Line),
        atom_to_term(Line,N,_),
        N2 is N << 2,
        write_formatted('%0x\n',[N2]).