pascal【FOR】完全平方数

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/02 08:26:21

pascal【FOR】完全平方数
Description
把一个四位整数如3025从中剪开分为30和25两个数,此时再将这两数之和平方,(30+25)2=3025计算结果又等于原数.求所有符合这样条件的四位数.
Input
无
Output
输出符合要求的数,每个数一行
Sample Input
无
Sample Output
无
Description
从A,2,3,4,5,...,N这n张扑克牌中任取三张,有几种组合方法?请编程输出所有组合形式.
Input
输入一个n
Output
输出的前一部分为所有组合,所有组合按顺序输出.
每行一个组合,每个组合的数之间场宽设为3.（场宽概念见下面）
输出的最后一行为组合总数.
Sample Input
3
Sample Output
　1　2　3
　1　3　2
　2　1　3
　2　3　1
　3　1　2
　3　2　1
6

var
i,a,b:longint;
begin
for i:=1000 to 9999 do
begin
a:=i div 100;
b:=i mod 100;
if sqr(a+b)=i then writeln(i);
end;
end.
——百度知道团队pas世界欢迎你加入!
再问：再麻烦解一个问题给20分
再答： var n,m,i,j,k:longint; begin m:=0; readln(n); for i:=1 to n do for j:=1 to n do if ij then for k:=1 to n do if (ik) and (jk) then begin m:=m+1; writeln(i:3,j:3,k:3); end; writeln(m); end.

pascal【FOR】完全平方数 free pascal 完全平方数 [free pascal]完全数 Pascal列出1〜1000内的所有既是完全平方数又是回文数的整数 pascal求正整数2到100之间的完全数什么是完全平方数? 完全平方数完全平方数是什么 PASCAL完全素数问题 10000以下完全平方数 3257是不是完全平方数 1是不是完全平方数