作业帮pascal函数找回文数试题描述】 找出10000以内的回文数. 从左向右读与从右向左读是同一个数的数为回文数,如19391是回文数.【输入描述】 无【输出描述】 输出只有一行,包括所有符合条件的回
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/29 01:07:10
pascal函数找回文数试题描述】 找出10000以内的回文数. 从左向右读与从右向左读是同一个数的数为回文数,如19391是回文数.【输入描述】 无【输出描述】 输出只有一行,包括所有符合条件的回
pascal函数找回文数
试题描述】
找出10000以内的回文数.
从左向右读与从右向左读是同一个数的数为回文数,如19391是回文数.
【输入描述】
无
【输出描述】
输出只有一行,包括所有符合条件的回文数,每个数占10个位置.
pascal函数找回文数试题描述】 找出10000以内的回文数. 从左向右读与从右向左读是同一个数的数为回文数,如19391是回文数.【输入描述】 无【输出描述】 输出只有一行,包括所有符合条件的回
函数：
var
i:longint;
function hw(num:longint):boolean;
var
s:string;
i:longint;
flag:boolean;
begin
str(num,s);
flag:=true;
for i:=1 to length(s) do
if s[i]s[length(s)-i+1] then begin
flag:=false;
break;
end;
hw:=flag;
end;
begin
for i:=1 to 10000 do
if hw(i) then write(i:10);
end.