Free pascal 题目

[复制链接]
查看11 | 回复0 | 2009-2-16 22:45:15 | 显示全部楼层 |阅读模式
输入一个整数A (1 0 dobeginm:=1;i:=1;while x and i=0 dobegini:=i*2;m:=m+i;end;writeln(x and m);readln(x);end;end.程序对A没有限制,只要不超过INTEGER的限制均可(16位环境是32767,32位环境是2亿多),程序从输入数X的右边开始寻找不为0的二进制位,同时构建一个掩码M,最后输出那个数与掩码M的AND。不过说明到这里才发现,其实第I位右边都是0,其实就可以输出结果I,...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行