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

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/25 10:02:36
如何用pascal语言,把一个自然数转换为二进制,并统计1和0的个数一个自然数转换成2进制后,如果1的个数比0多,称为A类数,否则称为B类数.输入一个数M(M如何用pascal语言,把一个自然数转换为

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

如何用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.
很简单滴~