1002验证回文数猜想(NOIP1999普及组)1003数学黑洞6174.docVIP

验证回文数猜想（NOIP1999普及组） Time Limit:10000MS? Memory Limit:65536KTotal Submit:41 Accepted:23 Description 　　一个自然数的倒置数指的是把它各个数字的位置颠倒，即原来第一位数变为最后一位数，原第二位数变为倒数第二位，…，原最后一位变为第一位数。例如163的倒置数是361，如果一个数的倒置数是它自己就叫回文数。回文数猜想是从任一自然数出发，把它和它的倒置数相加，如果和是回文数就结束，如果不是，就把和作为新数，继续上述工作，经过若干次重复操作后，总能得到一个和是回文数，目前除196经过50000次操作后，未得到回文数外，还没有发现其它自然数不符合这猜想。编一程序，来验证这个猜想。 Input 　　一行，一个自然数N（=5000）。 Output 　　一行，一个整数值，表示转换的次数。 Sample Input 12 Sample Output 1 Source var i,j,l,n,k:longint; a:array[1..10] of integer; flag,btt:boolean; begin readln(n); l:=0; while n0 do begin inc(l); a[l]:=n mod 10; n:=n div 10; end; flag:=true; k:=0; while flag do begin inc(k); btt:=true; for i:=1 to l div 2 do if a[i]a[l-i+1] then begin btt:=false; break; end; if btt then begin flag:=false; break; end; for i:=1 to l div 2 do begin a[i]:=a[i]+a[l-i+1]; a[l-i+1]:=a[i]; end; if l mod 2=1 then a[l div 2+1]:=2*a[l div 2+1]; for i:=1 to l do if a[i]9 then begin a[i+1]:=a[i+1]+1; a[i]:=a[i]-10; end; if a[l+1]0 then inc(l); end; writeln(k-1); end. 数学黑洞6174 Time Limit:10000MS? Memory Limit:65536KTotal Submit:43 Accepted:24 Description 　　已知，一个任意的四位整数，将数字重新组合成一个最大的数和最小的数相减，重复这个过程，最多七步，必得6174。即7641－1467＝6174。将永远出不来。求证：所有四位数数字（全相同的除外）均能得到6174。 Input 　　一个任意的四位整数。 Output 　　输出掉进黑洞的步数。 Sample Input 1342 Sample Output 3 Source var i,j,n,k,t:longint; max,min:longint; a:array[1..4] of longint; begin readln(n); k:=0; while n6174 do begin inc(k); for i:=1 to 4 do begin a[i]:=n mod 10; n:=n div 10; end; for i:=1 to 3 do for j:=i+1 to 4 do if a[i]a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end; max:=0; min:=0; for i:=1 to 4 do begin max:=max*10+a[4-i+1]; min:=min*10+a[i]; end; n:=max-min; end; writeln(k); end.