6174數學黑洞

1. 數學黑洞6174的問題

第1步：1000-1=999
第2步：9990-999=8991
第3步：9981-1899=8082
第4步：8820-288=8532
第5步：8532-2358=6174

2. 數學黑洞6174再實際中有什麼用

所謂數學黑洞，就是從給定的數字出發，在規定的運演算法則下，最終都將得到固定的一個值，再也跳不出去了。就像宇宙中的黑洞可以將任何物質，包括光都牢牢吸住，無法逃脫一樣。這樣的數字稱為「黑洞數」，這樣的運算叫做「重排求差」操作。例如，三位數的黑洞數為495 簡易推導過程：隨便找個數，如297，三個位上的數從小到大和從大到小各排一次，為972和279，相減，得693 按上面做法再做一次，得到594，再做一次，得到495 之後反復都得到495再如，四位數的黑洞數有6174

3. 數學黑洞6174。 已知:一個任意的四位正整數。將數字重新組合成一個最大的數和最小的數相減。重復這

var
	a,b,c:longint;
	s,s1,s2:string[4];
	ch:char;
	i,j,k,code:integer;
begin
	{readln(s);}
	s:='8899';
	iflength(s)<>4thenwriteln('error');
	k:=0;
	repeat	
		inc(k);
		fori:=1to3doforj:=i+1to4do
			ifs[i]>s[j]then
				beginch:=s[i];s[i]:=s[j];s[j]:=ch;end;
		s1:=s;
		fori:=1to2do
			beginch:=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.
	

4. 數學黑洞之一的6174，為什麼9998卻不行呢

9998-8999=0999
9990-0999=8991
9981-1899=8082
8820-0288=8532
8532-2358=6174
結果成立。
運算結果為三位數是首位添0補充成4位