谁能提供用Pascal编的彩票选号程序？

2022-11-11 21:11发布

站内问答 / 默认分类
698 2 6

001双色球富翁 8.5B.2007-4-25专业的双色球彩票过滤软件,软件拥用国外的先进算法,并拥有 AC,奇偶,号码和值等多达十几项条件过滤集于一身，让你每

001双色球富翁 8.5B.2007-4-25专业的双色球彩票过滤软件,软件拥用国外的先进算法,并拥有 AC,奇偶,号码和值等多达十几项条件过滤集于一身，让你每
2条回答
2022-11-11 21:27 .采纳回答

随手编一下：
program rad(input,output);
var
s:set of 1..33;
i,x:integer;
begin
randomize;
s:=[1,2,3..33];
for i:=1 to 6 do
begin
x:=random(32)+1;
while (x in s) do x:=random(32)+1
write(x,' ');
x:=x-[s];
end;
writeln;
end.本回答被提问者采纳

一周热门 更多>

相关问答