Question

free pascal习题

求1000以内含有3、4的数的和

Answer 1

var
i,ans:longint;
begin
ans:=0;
for i:=1 to 1000 do
begin
if (i mod 10=3)or(i mod 10=4) then ans:=ans+i;
if ((i mod 100)div 10=3)or((i mod 100)div 10=4) then ans:=ans+i;
if ((i mod 1000)div 100=3)or((i mod 1000)div 100=4) then ans:=ans+i;

end;
writen(ans);
end.

by myself
需要解释的话追问
可能需要编译一下，我是直接在这里打的

Answer 2

等我做完作业帮你解答

追问

哦，好的