送你个pascal,
var
i,s:integer;
begin
for i:=100 to 999 do
if (i-2) mod 3=0 then s:=s+i;
writeln(s);
end.
答案是164850.
学弟or学妹.
猜你喜欢
- 1有含盐20%的盐水150克,要使盐水含盐5%,需要加水急
- 2晏子使楚讲了哪三个故事?
- 3怎样分别记住融化、汽化、升华、液化、凝固、凝华的定义?
- 4一个修路队有130人,每天可修路975米.照这样的速度,如果再增加20人,要修完4500米长的公路,需要多少天
- 5Under the big tree ____.
- 6弹力产生的条件是物体发生弹性形变.那么物体发生范性形变能产生弹力吗?也就是弹力产生的条件到底是什么
- 7用向量证明,圆的直径所对的圆周角为直角(求解!)
- 8510除[42乘【6分之5减7分之3】]
- 9虫字旁一个乔,是什么字.问字的发音,
- 10mr Biack works in the police station 改为一般疑问句