作业帮MagicFingerprint(pascal语言解答)[大牛进]3．MagicFingerprint源程序：MagicFingerprint.*输入文件：MagicFingerprint.in输出文件：MagicFingerprint.out时限：2S对于任意一个至少两位的正整数n,按如下方式定义magic(n)
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/04 13:18:58
![MagicFingerprint(pascal语言解答)[大牛进]3．MagicFingerprint源程序：MagicFingerprint.*输入文件：MagicFingerprint.in输出文件：MagicFingerprint.out时限：2S对于任意一个至少两位的正整数n,按如下方式定义magic(n)](/uploads/image/z/8552753-17-3.jpg?t=MagicFingerprint%28pascal%E8%AF%AD%E8%A8%80%E8%A7%A3%E7%AD%94%29%5B%E5%A4%A7%E7%89%9B%E8%BF%9B%5D3%EF%BC%8EMagicFingerprint%E6%BA%90%E7%A8%8B%E5%BA%8F%EF%BC%9AMagicFingerprint.%2A%E8%BE%93%E5%85%A5%E6%96%87%E4%BB%B6%EF%BC%9AMagicFingerprint.in%E8%BE%93%E5%87%BA%E6%96%87%E4%BB%B6%EF%BC%9AMagicFingerprint.out%E6%97%B6%E9%99%90%EF%BC%9A2S%E5%AF%B9%E4%BA%8E%E4%BB%BB%E6%84%8F%E4%B8%80%E4%B8%AA%E8%87%B3%E5%B0%91%E4%B8%A4%E4%BD%8D%E7%9A%84%E6%AD%A3%E6%95%B4%E6%95%B0n%2C%E6%8C%89%E5%A6%82%E4%B8%8B%E6%96%B9%E5%BC%8F%E5%AE%9A%E4%B9%89magic%28n%29)
MagicFingerprint(pascal语言解答)[大牛进]3．MagicFingerprint源程序：MagicFingerprint.*输入文件：MagicFingerprint.in输出文件：MagicFingerprint.out时限：2S对于任意一个至少两位的正整数n,按如下方式定义magic(n)
MagicFingerprint(pascal语言解答)[大牛进]
3．MagicFingerprint
源程序：MagicFingerprint.*
输入文件：MagicFingerprint.in
输出文件：MagicFingerprint.out
时限：2S
对于任意一个至少两位的正整数n,按如下方式定义magic(n)：将n按十进制顺序写下来,依次对相邻两个数写下差的绝对值.这样,得到了一个新数,去掉前导0,则定义为magic(n).若n为一位数,则magic(n)=n.
例如：magic(5913)=482,magic(1198)=081=81,magic(666)=00=0.
对任意一个数n,序列n,magic(n),magic(magic(n)),…迟早会变成一个一位数.最后的这个值称为数n的magic指纹.
例如,对于n=5913,我们得到序列：5913,482,46,2.所以5913的magic指纹为2.
若一个数的magic指纹为7,则认为这个数是个幸运数.
现在,给定A,B,计算出[A,B]中有多少个数是幸运数.
输入：
输入两行,每行一个数.第一行是A,第二行表示B.
输出：
输出[A,B]中有多少个数是幸运数.
样例：MagicFingerprint.in
1
9
MagicFingerprint.out
1
数据范围：
对30%数据,B≤10000.
对100%数据,0
MagicFingerprint(pascal语言解答)[大牛进]3．MagicFingerprint源程序：MagicFingerprint.*输入文件：MagicFingerprint.in输出文件：MagicFingerprint.out时限：2S对于任意一个至少两位的正整数n,按如下方式定义magic(n)
var
a,b:longint;
i:integer;
si:string;
k:integer;
function magic(j:string):string;//magic(j)求j的magic指纹
var
m:string;
ii:integer;
begin
if length(j)1 //判断是否为个位数
then begin
for ii:=length(j) downto 2 do m[ii-1]:=chr(abs(ord(j[ii])-ord(j[ii-1]))+48); //将n按十进制顺序写下来,依次对相邻两个数写下差的绝对值
magic:=magic(m); //递归调用magic
end
else magic:=j; //如果是个位数就等于它本身
end;
begin
assign(input,'MagicFingerprint.in'); //文件输入
reset(input);
readln(a,b);
close(input);
k:=0;
for i:=a to b do //从a到b循环
begin
str(i,si); //将i转化为字符串(si)
if magic(si)='7' then k:=k+1; //如果是幸运数就加1
end;
assign(output,'MagicFingerprint.out'); //文件输出
rewrite(output);
writeln(k);
close(output);
end.
用fp
不能再详细啦
要加分!