作业帮pascal【FOR】完全平方数 Description 把一个四位整数如3025从中剪开分为30和25两个数,此时再将这两数之和平方,(30+25)2=3025计算结果又等于原数.求所有符合这样条件的四位数.Input 无Output 输出符合
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/21 16:32:35
pascal【FOR】完全平方数 Description 把一个四位整数如3025从中剪开分为30和25两个数,此时再将这两数之和平方,(30+25)2=3025计算结果又等于原数.求所有符合这样条件的四位数.Input 无Output 输出符合
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
pascal【FOR】完全平方数 Description 把一个四位整数如3025从中剪开分为30和25两个数,此时再将这两数之和平方,(30+25)2=3025计算结果又等于原数.求所有符合这样条件的四位数.Input 无Output 输出符合
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世界欢迎你加入!