查人人中国名人网cherry鼠标垫粗细区别:pascal编程问题
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/28 16:29:27
有一种绝对回文数,其十,二进制均为回文,请打印出1--500之间的绝对回文数(二进制最前面的0不能算).例如99(1100011)即是。用PASCAL怎么做?
先将N转化为2进制，将每一位数存与数组A[I]中,有N位
再有
function hws(数组）：boolean;
var ....
begin
over:=n div 2;
for i:=1 to over do if a[i]=a[n-i] then continue
else hws:=false;
end;
主程序中，if hws then 输出