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

4而特他热他

举个例子
15 MOD 2=1
7 MOD 2=1
3 MOD 2=1
1MOD 2=1
所以15＝1111(2)

简单啊

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.

very easy

so easy

var
  s:string;
begin
  s:=binstr(您需要化的十进制整数,需要保留的二进制数的位数)
end.

这还要问吗，奶奶？

不断地mod 2和div 2