2

打印出所有各位数字均为偶数的三位数,要求打印输出是每行10个数，然后在最后一行中打印输出满足条件的三位数有多少个？（参考答案：100个）

 

 

 

var
  i,j:integer;
begin
  j:=0;
  for i:=100 to 999 do
    if  (i mod 10 mod 2=0)and(i div 10 mod 10 mod 2=0)and(i div 100 mod 2=0) then
         begin
           j:=j+1;
           write(' ',i);
           if j mod 10=0 then
           writeln
         end;
  writeln(j);
  readln
end.