从1到9中选取3个数,要使没有两个数相邻的现象,有哪些选法?多少种?Free Pascal 做

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/17 08:28:19

var
i,j,k:integer;
begin
for i:=1 to 9-2 do
for j:=i+1 to 9-1 do
for k:=j+1 to 9 do
begin
if (j=i+1) or (k=j+1) then continue;
writeln(i:5,j:5,k:5);
end;
end.

从1到9中选取3个数,要使没有两个数相邻的现象,有哪些选法?多少种? 从1到9这九个数中选3个数,使它们的和能被3整除,则有不同的选书法有多少种?所有这些不同的三数组的数的总和等于多少? 从1,2,3,...20这20个数中任取2个不同的数,使这两个数之和为奇数,有多少中选法从1,2,3,...20这20个数中任取2个不同的数,使这两个数之和为偶数,有多少中选法从19~94这76个数中选取两个不同的数,使它们的和为偶数,有多少种选法? 从7个数中选出两个或以上的数相加,使和为3的倍数,共有多少种不同选法? 从1 2 3 4 5 6 7七个数中选三个不相邻的数总共有多少种取法,要详解从1到50的自然数中,任意取多少个数,其中必有两个数的和等于52? 从1到9这九个数中选3个数,使它们的和能被3整除,则有不同的选数法有多少种?所有这些不同的三从2~9这8个数中选取3个不同的数,使其和能被4整除而乘积能被6整除,那么不同的选法共有多少种? 一个五位数,要使各位上的数字互不相同,有哪些方案?多少种?Free pascal 从1到50这个自然数中选取两个数字,使它们的和不大于50,有多少种取法?