十个数分三组,让每个数字出现两次

[复制链接]
查看11 | 回复3 | 2011-2-24 00:30:12 | 显示全部楼层 |阅读模式
program tianshu;var bo:array[1..9]of integer;
a,b,c,j:integer;beginfor a:=123 to 329 dobegin
fillchar(bo,sizeof(bo),0);
j:=0;
b:=a*2;
c:=a*3;
if (a mod 100)and(bo[a mod 10]=0) then
begin
inc(j);
bo[a mod 10]:=1;
end;
if ((a div 10)mod 10
回复

使用道具 举报

千问 | 2011-2-24 00:30:12 | 显示全部楼层
1440
回复

使用道具 举报

千问 | 2011-2-24 00:30:12 | 显示全部楼层
112233,445566,778899,
回复

使用道具 举报

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

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行