pascal题目：将一个十进制数转化成二进制
Var  n, L, i : LongInt;  b : Array[1..32767] Of 0..1; Begin  Readln(n);  L := 0;  While n <> 0 Do    Begin      Inc(L);      b[L] := n MOD 2;      n := n DIV 2;    End;  For i := L DownTo 1 Do Write(b[i]);  Writeln; End.  十进制转二进制题目

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。