当前位置：首页 - 正文

Free Pascal 之数学黑洞6174

发布网友发布时间：2024-10-20 03:41

共2个回答

热心网友时间：2024-12-01 15:29

program sxhd;
var a,i,j,l,k:integer;
begin
readln(a);
while a<>6174 do
begin
i:=a div 1000;
j:=(a div 100)mod 10;
l:=(a mod 100)div 10;
k:=a mod 10;
a1:=i+10*j+100*l+1000*k;
if a1>a then writeln(a1,'-',a,'=',a1-a)
else writeln(a,'-',a1,'=',a-a1);
a:=abs(a-a1);
end;
readln;
end.

热心网友时间：2024-12-01 15:33

4321-1234=30888830-0388=84428442-2448=59949954-4599=53555553-3555=19989981-1899=80828820-0288=85328532-2358=6174大哥，好象八步了也

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com

焦点

Free Pascal 之数学黑洞6174

最新推荐

猜你喜欢

热门推荐

Free Pascal 之 数学黑洞6174

最新推荐

猜你喜欢

热门推荐

Free Pascal 之数学黑洞6174