level 8
for i:=1 to 200 do if i mod 3/5/7=0 then ans:=ans＋i
2015年08月08日 11点08分
2
level 7
var n,sum1,sum2,sum3,i:integer;
begin
n:=200;
sum1:=0;
sum2:=0;
sum3:=0;
for i:=1 to n do
begin
if i mod 3=0 then sum1:=sum1+i;
if i mod 5=0 then sum2:=sum2+i;
if i mod 7=0 then sum3:=sum3+i;
end;
writeln(sum1);
writeln(sum2);
writeln(sum3);
end.
2015年08月08日 12点08分
3
