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

2023-07-26 12:02发布

站内问答 / 默认分类
662 2 5

随手编一下：program rad(input,output);var s:set of 1..33; i,x:integer;begin randomi

随手编一下：program rad(input,output);var s:set of 1..33; i,x:integer;begin randomi
2条回答
2023-07-26 12:44

随手编一下：
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.本回答被提问者采纳

一周热门 更多>

相关问答