请问以下程序运行结果是什么,其中B[H]的值又是什么?

来源:百度知道 编辑:UC知道 时间:2024/06/24 05:40:39
Program program2
VAR I , J , H , M , N , K : integer;
B:ARRAY[ 1..10] OF integer;
Begin
Readln(N);
For I:=1 to 10 DO
Begin
M:=N; J:=11;
While M>0 DO
Begin
J:=J-1; B[J]:=M MOD 10;
M:=M DIV 10
END;
FOR H:=J to 10 DO N:=N+B[H];
End;
Writeln(N);
END.

输入:456 输出: 其中B[H]:

n=609,b[h]=11

下面是C代码...我跑了下,呵呵

#include <iostream.h>

int main()
{
int n,m,j,h;
int b[11];
cin >>n;
for (int i=1;i<=10;i++)
{
m=n;
j=11;
while (m>0)
{
j--;
b[j]=m%10;
m=m/10;
}
for (h=j;h<=10;h++)
{
n=n+b[h];
}
}
cout <<n<<endl;
cout <<b[h];
return 1;
}

n=609,b[h]=11

下面是C代码...我跑了下,呵呵

#include <iostream.h>

int main()
{
int n,m,j,h;
int b[11];
cin >>n;
for (int i=1;i<=10;i++)
{
m=n;
j=11;
while (m>0)
{
j--;
b[j]=m%10;
m=m/10;
}
for (h=j;h<=10;h++)
{
n=n+b[h];
}
}
cout <<n<<endl;
cout <<b[h];
return 1;
}

你这个是Delphi把

#include &l