作业帮求pascal问题 把整数分开,这两个数的和的平方有等于原数把整数3025从中剪开分为30和25两个数,此时再将这两数之和平方,（30+25）二次方=3025计算结果又等于原数.求所有符合这样条件的四位数
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/04 08:58:00
求pascal问题 把整数分开,这两个数的和的平方有等于原数把整数3025从中剪开分为30和25两个数,此时再将这两数之和平方,（30+25）二次方=3025计算结果又等于原数.求所有符合这样条件的四位数
求pascal问题 把整数分开,这两个数的和的平方有等于原数
把整数3025从中剪开分为30和25两个数,此时再将这两数之和平方,（30+25）二次方=3025计算结果又等于原数.求所有符合这样条件的四位数
求pascal问题 把整数分开,这两个数的和的平方有等于原数把整数3025从中剪开分为30和25两个数,此时再将这两数之和平方,（30+25）二次方=3025计算结果又等于原数.求所有符合这样条件的四位数
write("a=")
readln(a) (输入一个四位数)
i=a div 100 (取前两位,即取商的整数)
b=a mod 100 (取余,后两位)
if ((i+b)*(i+b))=a
begin
writeln(a)
end
同时记数列中全部逆数的和包括一行从小到大的整数序列，每两个整数用空格就是枚举每个数然后看它后面有多少个数比它大嘛! 数据小的话很容易过的!
穷举……
一个个看呗
for i:=1000 to 9999 do
begin
{分开，是随便分还是从中间分？不知道，所以你自己打}
if sqr（a）+……
end;
var
i,a,b:longint;
begin
for i:=1000 to 9999 do begin
a:=i div 100;
b:=i mod 100;
if (a+b)*(a+b)=i then writeln(i);
end;
end.
求pascal问题 把整数分开,这两个数的和的平方有等于原数把整数3025从中剪开分为30和25两个数,此时再将这两数之和平方,（30+25）二次方=3025计算结果又等于原数.求所有符合这样条件的四位数
pascal求两个数的最小公倍数
FREE PASCAL,输入两个数,求最小公倍数
pascal语言编程问题（free pascal求1—N中的素数的个数.(1
Pascal语言求两个数的最小公倍数和最大公约数
pascal神秘数列用深搜怎么做?神秘数列Line.pas/.c/.cpp【问题描述】研究中心正在研究一种数列,该数列由整数组成,每次可以对相邻的两个数进行相减操作,并删去这两个数,将运算结果替换进去.直
Pascal编程 把3025分成两个数30和25,把这两个数加起来得到55,55的平方又等于原来的数3025.Pascal编程把3025分成两个数30和25,把这两个数加起来得到55,55的平方又等于原来的数3025.请读者输入“1”,
五年级的数学问题,我被考到了,你叻?问题是： 有两个整数,它们的和是两个数相同的整数,它们的积是三个数相同的整数.求这两个整数
求n个数的最大值和最小值（pascal）【试题描述】 任意输入n个整数,把它们的最大值,最小值求出来.【输入描述】 输入只有一行,包括一个整数n(1
求n个数的最大值和最小值用Pascal试题描述任意输入n个整数,把它们的最大值,最小值求出来.输入要求输入只有一行,包括一个整数n(1
求n个数的最大值和最小值（Pascal）试题描述任意输入n个整数,把它们的最大值,最小值求出来.输入要求输入只有一行,包括一个整数n(1
pascal问题1.利用自定义函数求任意两个整数N～M（0
用递归的方法完成下列问题 求n个整数的积Pascal
用pascal计算题目问题一：用pascal输入10个任意整数,求他们的平均值二：按正序和反序分别输入26个英文字母三：输入20个整数,输出其中最大值四：输入20个整数,统计其中正负和零的个数
从文件中读取两个整数,输出两个数中较大的一个的平方值.pascal语言编程
pascal【FOR】完全平方数 Description 把一个四位整数如3025从中剪开分为30和25两个数,此时再将这两数之和平方,(30+25)2=3025计算结果又等于原数.求所有符合这样条件的四位数.Input 无Output 输出符合
用free pascal编程：输入两个数,求他们的最大公因数和最小公倍数
一道pascal试题,输入两个数a,b求两个数的最大公因数（用while语句）.