请各位高手发挥想像力!
推断出或证明外星人是否存在的软件应该怎么写?
推断出或证明外星人是否存在的软件应该怎么写?
解决方案 »
- 关于Delphi消息钩子远程注入窗体问题的请教!
- 截取字符串???
- 单击或双击DBGridEH控件的tilte出错
- 中国的软件路在何方
- 问大老:关于控件数组的响应事件,以下代码为什么不对!
- 使用 TXLSFile 类导出 Excel时,汉字后带有空格,请问高手解决过么?
- 为这个问题我已经…………
- 寻找透明checkbox
- access的自增字段,在插入记录时怎么不自动增加1?
- Help!!!ODBC驱动有错吗,VFP库中的照片字段始终无法在DBImage里显示
- *********看到一个非常漂亮的界面,里面的GRID很漂亮,尤其是滚动的滑块,大家知道是什么控件吗?*****************
- 在人事系统中,如何做合同期到期的提醒功能(如本月合同到期的人数、今天合同到期的人数)?
i:=0;
beginwhile i<=10begin
showmessage('外星人是存在的!');
i=i+1;if i>10 then
i:=0;
end;
function 外星人(楼主: integer): Boolean;
var
i,j,k: integer;
begin
result:=false;
for i:=1 to 100000000 do begin
for j:=1 to i*100 do begin
for k:=1 to i*j*10 do begin
if 楼主=i*j*k then
begin
result:=true;
exit;
end;
end;
end;
end;
end;