作业帮Pascal编程!今天就要!1）从七张不同的扑克中任取三张,有几种组合方法?编程输出所有组合形式每行一组,与总数.2）编程求出所有不超过1000的自然数,含有数字3的自然数,并统计自然数的总数,每
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/19 01:53:33
Pascal编程!今天就要!1）从七张不同的扑克中任取三张,有几种组合方法?编程输出所有组合形式每行一组,与总数.2）编程求出所有不超过1000的自然数,含有数字3的自然数,并统计自然数的总数,每
Pascal编程!今天就要!
1）从七张不同的扑克中任取三张,有几种组合方法?编程输出所有组合形式每行一组,与总数.
2）编程求出所有不超过1000的自然数,含有数字3的自然数,并统计自然数的总数,每行10个,最后输出总数.
Pascal编程!今天就要!1）从七张不同的扑克中任取三张,有几种组合方法?编程输出所有组合形式每行一组,与总数.2）编程求出所有不超过1000的自然数,含有数字3的自然数,并统计自然数的总数,每
delphi 7.0+XP SP3调试通过
1
var//变量部分,不用说了吧
i,j,k,count:integer;//定义循环变量和总数变量
begin//主程序开始
count:= 0;//总数为0
for i:=1 to 5 do//第一张牌（还要两张所以得有5长）
for j:=i+1 to 6 do//同理,最好把begin 和 end写明白,每个循环都加一个,可以提高程序可读性,避免人工阅读错误（机器是不会弄错的）
for k:=j+1 to 7 do begin
count:=count+1;//总数加1
writeln(i,j,k);//输出三个变量的值（freepascal不需要加inttostr,delphi最好加上,免得编译器提示出错）
end;
writeln('Gong You ',count,' Zong Qing Kuang');//输出总数（delphi的控制台应用程序可以输出汉字的,dos就不行
readln;//一个小技巧,在结束加上readln;可以避免看不到结果的情况
end. //程序结束
2
var
i,count:integer;//定义变量
begin
for i:=1 to 999 do begin//从1到999循环开始（个人建议把begin写在下面单独一行,看起来更方便
if (i mod 10=3) or (i div 100=3) or (i mod 100 div 10=3) then begin//or表示或者,就是if条件满足一个即执行下面语句,第一个括号表示个位为3（求余,被10除个位余3则个位为3）,第二个括号表示百位为3,第三个表示十位为三（其实还可以用字符串函数来做,只要获得有“3”这个字符即可输出
count:=count+1;//总数加1
if i