解决方案 »
- 打印设置中的[duplex]选项含义
- 100分求教:模拟按键问题
- 高手救命啦,C/s数据库的一些小问题,能说得细点就细点,最好有解决办法的代码 来者有分 分不够,另外开帖给
- 各位大哥,excel倒入导出问题
- 高分求Async Professional资料
- Delphi写组件和ASP接口程序的问题,请高手帮忙!
- 我在修改dataSet是老是提示:readonly dataset??!!!!
- 怎样用select调用多个表中的数据???
- 新手又有好菜送上,很嫩很嫩!!! (60分送給你)
- 急!急!!生成安装程序以后,找不到数据库别名怎么办?
- delphi7开发的软件怎样支持英文操作系统?
- ado远程 连接sql server2000
代码如下;
procedure TForm1.Button1Click(Sender: TObject);
var
x,y,z:integer;
begin
for x:=1 to 20 do
begin
for y:=1 to 33 do
begin
z:=100-x-y;
if (z mod 3 =0) and((z/3+x*5+y*3)=100)then
Memo1.Lines.Add(IntToStr(x)+' '+IntToStr(y)+' '+IntToStr(z));
end;
end;
end;