证券营业部发展:谁能告诉我哪儿错了（数学黑洞）

来源：百度文库编辑：高考问答时间：2024/04/28 22:02:03

program shuxueheidong(input,output);
var
m,i,n,e,box,max,min:integer;
k:array [1..4] of integer;
begin
e:=0;
writeln('Please input four different numbers');
readln(n);
while n<>6174 do
begin
k[1]:=n div 1000;
k[2]:=(n-1000*k[1]) div 100;
k[3]:=(n-1000*k[1]-100*k[2]) div 10;
k[4]:=n-1000*k[1]-100*k[2]-10*k[3];
for m:=1 to 4 do
for i:=1 to 3 do
if k[i]<k[i+1] then
begin
box:=k[i];
k[i]:=k[i+1];
k[i+1]:=k[i];
end;
max:=1000*k[1]+100*k[2]+10*k[3]+k[4];
min:=1000*k[4]+100*k[3]+10*k[2]+k[1];
n:=max-min;
e:=e+1;
end;
writeln(e:5);
end.
怎样才算不乱
还有去掉第五行

晕，你用pascal语言编程啊，你的程序写的好乱啊。不知道我说的对不对，好像是变量的定型出问题了，不会是整型的。

谁能告诉我哪儿错了（数学黑洞）谁能告诉我哪儿错了谁能告诉我黑洞的相关知识? 谁能告诉我一些关于黑洞的知识？谁能告诉我太空黑洞是怎么回事。谢拉。。。。。谁能告诉我哪儿有拉薇妮的壁纸啊？？？谢谢了谁能告诉我哪儿能下载《小龙人》呀,谢谢了! 谁能告诉我香香好在哪儿？谁能告诉我哪儿有下载啊？谁能告诉我我该去哪儿？