Цитата(TsykunovDmitriy @ 8.05.2014 1:49)

Var
K, I : integer;
Begin
K:=0;
For i:=100 to 999 do
  If (i mod 7 = 0) and (i mod 3 <> 0) then
     Inc(k);
WriteLn(K);
End.