一道编程题,编程计算100~100000之间,共有多少个整数,满足它的各位数学之和可被3整除.
2019-04-13
一道编程题,
编程计算100~100000之间,共有多少个整数,满足它的各位数学之和可被3整除.
优质解答
如果是free pascal 的话我能帮你一把
var s:string;
i,j,k,n:longint;
begin
k:=0;
for i:=100 to 100000 do begin
s:='';
n:=0;
str(i,s);
for j:=1 to length(s) do
n:=(n+ord(s[j])-48) mod 2;
if n=0 then inc(k);
end;
write(k);
end.
如果是free pascal 的话我能帮你一把
var s:string;
i,j,k,n:longint;
begin
k:=0;
for i:=100 to 100000 do begin
s:='';
n:=0;
str(i,s);
for j:=1 to length(s) do
n:=(n+ord(s[j])-48) mod 2;
if n=0 then inc(k);
end;
write(k);
end.