文档分类
历届真题 pascal noip
else t:= ④ ; i:=i+1; until flag; end end; begin read (m); if ((m>0) and (m<1000)) then writeln ( ⑤ ); end.