一道编程题,编程计算100~100000之间,共有多少个整数,满足它的各位数学之和可被3整除.

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/29 16:25:07
一道编程题,编程计算100~100000之间,共有多少个整数,满足它的各位数学之和可被3整除.

一道编程题,编程计算100~100000之间,共有多少个整数,满足它的各位数学之和可被3整除.
一道编程题,
编程计算100~100000之间,共有多少个整数,满足它的各位数学之和可被3整除.

一道编程题,编程计算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.