var
i,j,t:longint;
s:string;
b:boolean;
begin
for i:=1 to 1000 do
begin
str(i,s);
b:=false;
for j:=1 to length(s) do
if s[j]=\'3\' then 【b:=true;
if b 】then inc(t); 【 。。】去掉括号里面的内容后为什么会答案不一样、
end;
writeln(t);
end.

for循环的循环体始终加上begin end;好习惯……

因为for j那里后面的then inc（t）那里没有将上面的if语句用begin，end括起来，导致去掉括号里的内容后结果变了，
lz
可以加上begin end看看