Pascal :
var i,n:integer; begin n:=0; for i:=1 to 100 do if i mod 3=0 then n:=n+1; writeln(n); end.
By signing up a 算道OJ universal account, you can submit code and join discussions in all online judging services provided by us.
Using your 算道OJ universal account
