clear
n=0;
for x=1:100
if mod(x,3)==0
n=n+1;
disp(x)
end
end
disp(n)