有5个数,每个数都是1-9之间,他们相加等于30
求:1、有多少种组合?2、具体是什么?
求:1、有多少种组合?2、具体是什么?
解决方案 »
- IDHTTP打开一个网页,有的时候返回空值,什么原因呢?
- MainMenu放置到ToolBar中时自动AutoHotkey
- 从 TCustomTabControl 派生 怎么响应鼠标键盘
- 终于可以脱掉裤衩 顶着星星裸奔了 散500分 哇哈哈
- 急!delphi删除表中所有记录时表中内容是删除了,但是程序运行出现错误!
- 求一段简单的代码:能在页面用脚本调用一个函数.....
- 我的程序在win98系统中无法运行了?
- 按两次按钮才有反应,右上角的对话框关闭按钮也一样
- 怎样看懂别人写的源码
- 怎样才能判断远程数据库是否准备好,TDatabase 好象不能
- activex生成后 如何在HTML中更新
- delphi中关于webservices开发,请达人帮助
k,k1,k2,k3,k4,k5:Integer;ListBox1.Items.Clear;
ListBox1.Items.Add('1..9任取5个数之和等于30组合如下:');
For k1:= 1 To 9 do
For k2:= k1+1 To 9 do
For k3:= k2+1 To 9 do
For k4:= k3+1 To 9 do
For k5:= k4+1 To 9 do
If (k1 + k2 + k3 + k4 + k5) = 30 Then
begin
ListBox1.Items.Add(intTostr(k1) +' '+ intTostr(k2) +' '+ intTostr(k3) +' '+ intTostr(k4)+' '+ intTostr(k5));
inc(k);
end;
ListBox1.Items.Add('共 '+intTostr(k)+' 个组合');