pascal 数字黑洞6174 尽量一次做对好吗?经受不起系统一直显示错误的折磨.
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/08/23 17:41:10
pascal 数字黑洞6174 尽量一次做对好吗?经受不起系统一直显示错误的折磨.
已知一个任意的不完全重复的四位正整数,将其数字重新组合成一个最大的数和一个最小的数并使之相减,这称为“重排求差”.其结果不足四位时,右边补0,组成大的四位数;左边补0,组成小的四位数.重复这个过程,最多七步,必能得到6174.求某一四位数(每位数字完全相同的除外)经上述“重排求差”步骤均能得到6174的步数.当输入的四位正整数是四位完全重复时,输出“error”字样
例如:输入任一四位数:1234
输出变换的步数:3
Input
输入所要变换的四位数
第一行输入所要变换的四位数的值
Output
输出变换的步数
Sample Input
1234
Sample Output
3
已知一个任意的不完全重复的四位正整数,将其数字重新组合成一个最大的数和一个最小的数并使之相减,这称为“重排求差”.其结果不足四位时,右边补0,组成大的四位数;左边补0,组成小的四位数.重复这个过程,最多七步,必能得到6174.求某一四位数(每位数字完全相同的除外)经上述“重排求差”步骤均能得到6174的步数.当输入的四位正整数是四位完全重复时,输出“error”字样
例如:输入任一四位数:1234
输出变换的步数:3
Input
输入所要变换的四位数
第一行输入所要变换的四位数的值
Output
输出变换的步数
Sample Input
1234
Sample Output
3
program heidong;
var a:array[1..4]of integer;
hd,shiyan,i,j,temp,big,small,w,result:integer;
begin
readln(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]
再问: k86vwi.pas(34,4) Fatal: Syntax error, . expected but ; found 麻烦再帮我改一下。。。谢谢
再答: 不好意思 把第34行删掉应该可以了!~~~
再问: 表示结果是wrong answer。。。
再答: 等一下,我看一下呵~~OK了,我的问题。。。 var a:array[1..4]of integer; hd,shiyan,i,j,temp,big,small,w,result:integer; begin readln(hd); 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]
var a:array[1..4]of integer;
hd,shiyan,i,j,temp,big,small,w,result:integer;
begin
readln(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]
再问: k86vwi.pas(34,4) Fatal: Syntax error, . expected but ; found 麻烦再帮我改一下。。。谢谢
再答: 不好意思 把第34行删掉应该可以了!~~~
再问: 表示结果是wrong answer。。。
再答: 等一下,我看一下呵~~OK了,我的问题。。。 var a:array[1..4]of integer; hd,shiyan,i,j,temp,big,small,w,result:integer; begin readln(hd); 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]
普罗米修斯经受了哪些痛苦的折磨
英语翻译需要翻译的句子:其实我经受不起挫折,如果你真的对我有感觉,请不要这样对我好吗?每分每秒我都在受着煎熬.
写李时珍为了编本草纲目而经受的折磨
一·这是他们在经受了我数次“折磨”之后下的结论.
生活实际中能经受重大折磨更坚强的例子
孟子认为一个人若想成就事业,首先必须经受一番痛苦的折磨,所以他认为:__________________________
为什么我去雅思官网报名 填写报名表的第一页 一直显示填写错误
GRE成绩查不到!和我一起考的同学都查到了.一直显示错误.
这世界上只有我知道你是最好的女人,你知道我能做的更好,不要再折磨我了好吗?
求N!左边第二位的数字 pascal
一道一次函数解答题,很简单的,但我做不起.大家帮帮忙
free pascal程序设计,尽量用简单语言,难的看不懂