作业帮世界第一难的pascal题,求所有4位数的黑洞数步骤谁能帮小弟找找错在那里?编译时可以成功,就是运行不了,会显示：exited withexitcode=201程序如下program heidong;var a:array[1..4]of integer;hd,shiyan,i,j,temp,big
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/29 18:31:48
![世界第一难的pascal题,求所有4位数的黑洞数步骤谁能帮小弟找找错在那里?编译时可以成功,就是运行不了,会显示：exited withexitcode=201程序如下program heidong;var a:array[1..4]of integer;hd,shiyan,i,j,temp,big](/uploads/image/z/6847860-12-0.jpg?t=%E4%B8%96%E7%95%8C%E7%AC%AC%E4%B8%80%E9%9A%BE%E7%9A%84pascal%E9%A2%98%2C%E6%B1%82%E6%89%80%E6%9C%894%E4%BD%8D%E6%95%B0%E7%9A%84%E9%BB%91%E6%B4%9E%E6%95%B0%E6%AD%A5%E9%AA%A4%E8%B0%81%E8%83%BD%E5%B8%AE%E5%B0%8F%E5%BC%9F%E6%89%BE%E6%89%BE%E9%94%99%E5%9C%A8%E9%82%A3%E9%87%8C%3F%E7%BC%96%E8%AF%91%E6%97%B6%E5%8F%AF%E4%BB%A5%E6%88%90%E5%8A%9F%2C%E5%B0%B1%E6%98%AF%E8%BF%90%E8%A1%8C%E4%B8%8D%E4%BA%86%2C%E4%BC%9A%E6%98%BE%E7%A4%BA%EF%BC%9Aexited+withexitcode%3D201%E7%A8%8B%E5%BA%8F%E5%A6%82%E4%B8%8Bprogram+heidong%3Bvar+a%3Aarray%5B1..4%5Dof+integer%3Bhd%2Cshiyan%2Ci%2Cj%2Ctemp%2Cbig)
世界第一难的pascal题,求所有4位数的黑洞数步骤谁能帮小弟找找错在那里?编译时可以成功,就是运行不了,会显示：exited withexitcode=201程序如下program heidong;var a:array[1..4]of integer;hd,shiyan,i,j,temp,big
世界第一难的pascal题,求所有4位数的黑洞数步骤
谁能帮小弟找找错在那里?编译时可以成功,就是运行不了,会显示：
exited with
exitcode=201
程序如下
program heidong;
var a:array[1..4]of integer;
hd,shiyan,i,j,temp,big,small,w,result:integer;
begin
for hd:=1000 to 9999 do
begin
shiyan:=hd;
for i:=1 to 4 do
begin
a[i]:=shiyan mod 10;
shiyan:=shiyan div 10;
end;
write(hd,' needs:');
w:=0;
if a[1]a[2] then
begin
repeat
for i:=1 to 3 do
for j:=i+1 to 4 do
if a[i]
世界第一难的pascal题,求所有4位数的黑洞数步骤谁能帮小弟找找错在那里?编译时可以成功,就是运行不了,会显示：exited withexitcode=201程序如下program heidong;var a:array[1..4]of integer;hd,shiyan,i,j,temp,big
(1)你的黑洞数错了,应该是6174不是6147
(2)你判断wrong的条件不对,而且不应该放在外面.
修改后的程序：
program heidong;
var a:array[1..4]of integer;
hd,shiyan,i,j,temp,big,small,w,result:integer;
begin
for hd:=1000 to 9999 do
begin
shiyan:=hd;
for i:=1 to 4 do
begin
a[i]:=shiyan mod 10;
shiyan:=shiyan div 10;
end;
write(hd,' needs:');
w:=0;
repeat
for i:=1 to 3 do
for j:=i+1 to 4 do
if a[i]