将N转换为2进制(pascal)

来源：百度知道 编辑：UC知道 时间：2024/05/22 03:47:14
输入一个不大与32767的正整数N,将N转换为2进制.
很急的,明天早上要,大家帮帮忙啊~~

PROGRAM jzzh;
var
s:string;
m,n:longint; {n是被转换的数}
begin
read(n);
while n>0 do
begin
m:=n mod 2 ;
if m<10 then
s:=chr(m+48)+s
n:=n div 2;
end;
writeln(s);
end.

#include <stdio.h>
main()
{
int n,i,j,sum=0,x=1;
printf("Please enter n=");
scanf("%d",&n);
while(n!=0)
{
i=n%2*x;
n=n/2;
sum=sum+i;
x=x*10;
}
printf("sum=%d\n",sum);

}