Question

【入门】编程求阿姆斯特朗数

【入门】能被5整除且至少有一位数字是5的所有整数的个数

时间限制：1000MS 内存限制：1000K
解答次数：947 通过次数：588

【试题描述】

找出1－N中能被5整除且至少有一位数字是5的所有整数的个数.N<32767

【输入描述】

输入只有一行，只有1个整数N。

【输出描述】

输出只有一行（这意味着末尾有一个回车符号），包括1个整数。

【输入样例】

9999

【输出样例】

1271

【试题来源】

var
n,i,a,b,c,d,e,f:integer;
begin
readln(n);
f:=0;
for i:=1 to n do
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.
我到底哪里出错误了，高手看看
语言是free pascal

Answer 1

什么语言？delphi？

Answer 2

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.