【入门】编程求阿姆斯特朗数
答案:2 悬赏:50 手机版
解决时间 2021-03-20 20:42
- 提问者网友：听门外雪花风
- 2021-03-19 20:48
【入门】编程求阿姆斯特朗数
最佳答案
- 五星知识达人网友：洎扰庸人
- 2021-03-19 22:24
var
n,i,a,b,c,d,e,f:integer;
begin
readln(n);
f:=0;
for i:=1 to n do
BEGIN
a:=n div 10000;
n:=n mod 10000;
b:=n div 1000;
n:=n mod 1000;
c:=n div 100;
n:=n mod 100;
d:=n div 10;
n:=n mod 10;
e:=n ;
if (n div 5=0) then
//begin
if (a=5) or (b=5) or (c=5) or (d=5) or (e=5)
then f:=f+1;
end;
writeln(f);
end.
n,i,a,b,c,d,e,f:integer;
begin
readln(n);
f:=0;
for i:=1 to n do
BEGIN
a:=n div 10000;
n:=n mod 10000;
b:=n div 1000;
n:=n mod 1000;
c:=n div 100;
n:=n mod 100;
d:=n div 10;
n:=n mod 10;
e:=n ;
if (n div 5=0) then
//begin
if (a=5) or (b=5) or (c=5) or (d=5) or (e=5)
then f:=f+1;
end;
writeln(f);
end.
全部回答
- 1楼网友：孤独的牧羊人
- 2021-03-20 00:00
什么语言？delphi？
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯