求纠正编译错误
const n=1000;
var i,count:integer;
begin
count:=0;
for i:=1 to n do
begin
if i<10 then
begin
if i=3 then
begin
write(3,' ');
count:=count+1;
end;
end
else
begin
if (i>=10) and (i<100) then
begin
if ((i mod 10) =3) or ((i div 10) =3) then
begin
write(i,' ');
count:=count+1;
end;
end
else
begin
if (i>=100) and (i<1000) then
if (((i mod 100) mod 10) =3) or ((((i div 10) mod 10)) =3) or ((i div 100) =3) then
begin
write(i,' ');
count:=count+1;
end;
end;
end; end;
writeln();
writeln('count=',count);
readln();
end.


编译通过。。。。（FP）

program a;
const n=1000;
var i,count:integer;
begin
count:=0;
for i:=1 to n do
if (i mod 10=3)or(i div 10 mod 10=3)or(i div 100=3) then
begin
write(i,' ');
inc(count);
end;
writeln;
writeln('count=',count);
readln;
end.

#include <iostream>
using namespace std;
int main()
{
int i,j,a,b,c;
b=0;
for(i=3;i<=1000;i++)
{
if(i%10==3||(i/10)%10==3||i/100==3)
b++;
}
cout<<b<<endl;
return 0;
}