使用 pascal 查找阿姆斯特朗数

告诉你一个更简单的：

program asdf；

var a，b，c，：integer；

beginreadln（n）；

g:=0;for a：=1 to 9 do

for b：=0 to 9 do

for c：=10 to 9 do

if （a*a*a+b*b*b+c*c*c=a*100+b*10+c）and（（a*100+b*10+c）〈n）

then g:=g+1；

writeln(g);

end.然后自己数一数。

第一个是有文件，需要创建一个文件，把n放进去，第二个是没有文件，直接输入n，然后程序返回结果。

这取决于你想要哪一个。

program abc;

var i,k,m,n :integer;

a:array[1..3] of integer;

fin,fou:text;

beginassign(fin,'');

assign(fou,'');

reset(fin);

readln(fin,n);

m:=0;for i:=1 to n do

begina[1]:=i mod 1000;

a[2]:=i mod 100;

a[3]:=i mod 10;

if a[1]*a[1]*a[1]+a[2]*a[2]*a[2]+a[3]*a[3]*a[3]=i

then m:=m+1;

end; rewrite(fou);

writeln(fou,m);

close(fin);

close(fou);

abc;var i,k,m,n :integer;

a:array[1..3] of integer;

fin,fou:text;

beginm:=0;

for i:=1 to n do

begina[1]:=i mod 1000;

a[2]:=i mod 100;

a[3]:=i mod 10;

if a[1]*a[1]*a[1]+a[2]*a[2]*a[2]+a[3]*a[3]*a[3]=i

then m:=m+1;

end; writeln(m);

readln;

end.另存为。 pas，然后在程序中打开它。

算了一张桌子，反正这张桌子也不大。。。

稍作修改就可以了。

#include

include 包含 pow 函数。

int main()

if(flag==1)

if(sum==m)

printf("%d",m);}

return 0;}

事实上，它也被称为水仙花！ 456这个数字不能用，你自己算一下，是395，好久没明白你写了什么; 给你我写的来源**：

#include

int q（int n） 是一个函数，是 x 3+y 3+z 3，q 没有多大意义，只有我的名字以它开头。

return sum;

int main()}

如果您想自己输入身份验证，只需调用 q（您输入的金额）函数即可。

不管你输入什么，你都拿不到结果，看了很久我不明白你的意思。

应为 t = ceil（log10（n））;

您的程序可以更简洁：

function c = amsnum_cxd(n)while 1

s = sprintf('%d', n)-'0';

if sum(s.^3) == n

c = n;

return;

endn = n+1;

endend

包括丹穗。

void main()

int i,j,k,m,s,temp=0;

for(i=2;i<1000;i++)

j=i;s=0;

while(j)

k=j%10;

j=j/10;

s+=k*k*k;

if(s==i)

printf("%d",i);

temp=1;

if(temp==0)

printf("no output!孙早恩");

如果你在 while 循环中更改 i 的值，你将在 for 循环中使用 i，你就错了。