とりあえずやっつけで作ってみました。 INPUT B% :B$="" WHILE B% A$=STR$(B% MOD 2) B%=B% DIV 2 B$=A$+B$ WEND PRINT B$ 単純に2で割っていって余りが出たら1、ない場合は0を「右から左に」つけていくだけです。