free pascal 2.0.4可以省略第一行1.var i:byte;function check(i:byte):boolean;var s:string;beginstr(i,s);if pos(s,'5')=0 then exit(false) else check:=true;end;beginfor i:=1 to 333 doif check(3*i) then writeln(3*i);end.2.128var a,b,c:word;begina:=128;b:=128;c:=128;a:=a div 2;b:=b div 2;inc(c,a+b);a:=a div 2;c:=c div 2;...