切换到宽版
发帖 回复
返回列表
12
  • 16805阅读
  • 14回复

怎样将十进制数化成二进制数? [复制链接]

 上一主题 下一主题
离线tzwangzy
OIFans初赛选手
只看该作者 10 发表于: 2007-09-22
so easy
回复
举报
离线绝世衰神
OIFans复赛选手
只看该作者 11 发表于: 2008-02-02
very easy
天生我材必有用
老鼠儿子会打洞
回复
举报
离线leocy002
OIFans入门选手
只看该作者 12 发表于: 2008-02-07
program ten;
var
a,b:integer;
s:string;
begin
write('Enter the 10th mumber:');
readln(a);
while a<>0 do
  begin
  b:=a mod 2;
  a:=a div 2;
  s:=chr(48+b)+s;
  end;
write('The 2nd number is: ',s);
writeln;
end.
回复
举报
离线yonghu86cs
OIFans初赛选手
只看该作者 13 发表于: 2008-02-21
简单啊
回复
举报
离线liuqg1092
OIFans入门选手
只看该作者 14 发表于: 2008-10-13
举个例子
15 MOD 2=1
7 MOD 2=1
3 MOD 2=1
1MOD 2=1
所以15＝1111(2)
回复
举报
发帖 回复
返回列表
12
快速回复
限100 字节
 
上一个 下一个