Question

数学黑洞6174。 已知:一个任意的四位正整数。将数字重新组合成一个最大的数和最小的数相减。重复这

数学黑洞6174。
已知:一个任意的四位正整数。将数字重新组合成一个最大的数和最小的数相减。重复这个过程最多七步，必得6174。即:7641-1467=6174。将永远出不来。求证:所有四位数数字（全相同的除外），均能得到6174。输出掉进黑洞的步数。

（注:Pascal题目）

Answer 1

var
	a,b,c:longint;
	s,s1,s2:string[4];
	ch:char;
	i,j,k,code:integer;
begin
	{readln(s);}
	s:='8899';
	if length(s)<>4 then writeln('error');
	k:=0;
	repeat	
		inc(k);
		for i:=1 to 3 do for j:=i+1 to 4 do 
			if s[i]>s[j] then 
				begin ch:=s[i]; s[i]:=s[j]; s[j]:=ch; end;
		s1:=s;
		for i:=1 to 2 do 
			begin ch:=s[i]; s[i]:=s[5-i]; s[5-i]:=ch; end;
		s2:=s;
		val(s1,a,code);
		val(s2,b,code);
		c:=b-a;
		str(c:4,s);
		writeln(a:6,b:6,c:6);
	until (c=6174)or(k>20);
	writeln(k);
end.
	

追问

还有一题

多谢

追答

䃼充的题目在另一处已回答