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

[复制链接]
查看11 | 回复1 | 2010-12-16 22:07:05 | 显示全部楼层 |阅读模式
var i,j,k:integer;begin for i:=1 to 9-2 dofor 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.
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行