中科新闻网深圳市大族激光:一道PSCAL
来源：百度文库 编辑：中科新闻网 时间：2024/05/03 03:45:15
找数。一个三位数，各位数字互不相同，十位数字比个位、百位数字之和还要大，且十位、百位数字之和不是质数。编程找出所有符合条件的三位数。
注：1. 不能手算后直接打印结果。
2. “质数”即“素数”，是指除1和自身外，再没有其它因数的大于1的自然数。
注：1. 不能手算后直接打印结果。
2. “质数”即“素数”，是指除1和自身外，再没有其它因数的大于1的自然数。
const k:=i+j;
var i,j,k,l:integer;
begin
for i:=3 to 9 do
for j:=1 to 7 do
if (i>j+1) and
(k<>5) and
(k<>7) and
(k<>11) and
(k<>13) then for l:=j+1 to i-1 do writeln(j,i,l);
end.
191
192
193
194
195
196
197
181
182
太多了