如何用pascal语言,把一个自然数转换为二进制,并统计1和0的个数

来源：学生作业帮编辑：神马作文网作业帮分类：综合作业时间：2024/11/11 04:10:20

如何用pascal语言,把一个自然数转换为二进制,并统计1和0的个数
一个自然数转换成2进制后,如果1的个数比0多,称为A类数,否则称为B类数.输入一个数M（M

var
m,i,k,a,b,l,p:longint;
begin
readln(m);
for i:=1 to m do
begin
k:=i;
l:=0;
p:=0;
while k0 do
begin
if k mod 2=1 then inc(l) else inc(p);
k:=k div 2;
end;
if l>p then inc(a) else inc(b);
end;
writeln(a,' ',b);
end.
很简单滴~

如何用pascal语言,把一个自然数转换为二进制,并统计1和0的个数 R语言里面怎么把一个数转换为二进制的0,1串,比如5=101, 用C语言编写一程序,统计从键盘输入的任意自然数中偶数的个数并求其和 pascal 编程 1、统计1到200000000之间只含有数字0和1的这些的数的个数,如1,10,11,100等.2、统计1～10000000之间只含有数字1和0的数的个数（如1,10,11,等）用pascal　rep．．．编程输入一个自然数x,求这个自然数的所有约数（包括1和x本身）之和 pascal语言 pascal语言:输入n个数,并输出最大的数和最小的数 C语言移位的算法,输入一个小于255的数,用移位法算出该数的二进制数中1的个数和0的个数. 编写一个判别M是否为完数的函数,并编写主函数,通过调用此函数统计自然数1~100完数的个数用 Pascal 编写一个程序将十进制整数n转换为二进制数. free pascal 程序:打印由1,2,3,4四个数字组成的所有四位数,并统计个数. c语言：编程统计数组a中的正数,0,负数的个数,并输出统计结果?