free pascal 完全平方数

[复制链接]
查看11 | 回复1 | 2012-7-4 15:52:10 | 显示全部楼层 |阅读模式
这是结果:361 529 784361 784 529529 361 784529 784 361784 361 529784 529 361下面是代码var u:array[1..9]of boolean; a:array[1..9]of longint; flag:boolean;procedure dfs(x:longint);var i:longint;begin if x>9 then
begin
flag:=true;
for i:=1 to 3 do
begin
x:...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行