pascal函数找回文数
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/07/29 19:58:30
pascal函数找回文数
试题描述】
找出10000以内的回文数.
从左向右读与从右向左读是同一个数的数为回文数,如19391是回文数.
【输入描述】
无
【输出描述】
输出只有一行,包括所有符合条件的回文数,每个数占10个位置.
试题描述】
找出10000以内的回文数.
从左向右读与从右向左读是同一个数的数为回文数,如19391是回文数.
【输入描述】
无
【输出描述】
输出只有一行,包括所有符合条件的回文数,每个数占10个位置.
![pascal函数找回文数](/uploads/image/z/18991701-45-1.jpg?t=pascal%E5%87%BD%E6%95%B0%E6%89%BE%E5%9B%9E%E6%96%87%E6%95%B0)
函数:
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.
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.
pascal程序:回文数
pascal求打印回文数
怎么用Pascal编一个判断回文数的程序
pascal回文数 1——1000中所有回文数输出,怎么打,要求简洁
pascal题回文素数
回文数(回文数)
怎样定义回文数这个函数
Pascal列出1〜1000内的所有既是完全平方数又是回文数的整数
回文素数的个数,用pascal
求出所有的既是回文数又是素数的三位数.pascal求大神求解哪里错了?
PASCAL将1,2,3,4,5,6,7,8,9组成一个三位数,必须是素数,回文数
求n~m之间所有“回文数”之和.要求编制函数 JSValue(x)用于判断x是否为回文数.回文数是指各位数字左右对