Pascal编程把3025分成两个数30和25,把这两个数加起来得到55,55的平方又等于原来的数3025.

来源：学生作业帮编辑：灵鹊做题网作业帮分类：综合作业时间：2024/04/29 16:02:04

Pascal编程把3025分成两个数30和25,把这两个数加起来得到55,55的平方又等于原来的数3025.
Pascal编程
把3025分成两个数30和25,把这两个数加起来得到55,55的平方又等于原来的数3025.请读者输入“1”,然后显示出所有四位数中像上述的3025这样的数.
var a,b,c,d,i:integer
begin
readln(a)
if a:=1 then
begin
for i:=1000 to 9999 do
b:=i div 100;
c:=i mod 100;
d:=b+c;
if d*d=i then writeln(i);
end;
readln;
end.
上面有错么?如果错误很大这个应该怎么编程?（用初中的语言：if语句和for语句,还有/ div mod）

这个问题,错就错在少了个begin和end以及一些编译错误,修改后如下：
var a,b,c,d,i:integer
begin
readln(a);
if a=1 then
begin
for i:=1000 to 9999 do
begin
b:=i div 100;
c:=i mod 100;
d:=b+c;
if d*d=i then writeln(i);
end;
end;
end.
编译错误就不说了,你这个begin end是必须要加的,因为这些处理语句本应在for循环里的

求pascal问题把整数分开,这两个数的和的平方有等于原数把50分成两个数的和有五个数,每取两个数相加,得到十个和,再把这十个数相加,得到2064,原来五个数的和是多少把一个数的末尾"0"就得到一个数,这两个数之和253,求原来的数. 解方程：把325分成两个数,使分成的两个数的和是这两个数的差的五倍.求这两个数? 把50分成两个数的和有多少种分法 pascal程序 a,b两个自然数的和、差、积、商四个数加起来等于243,求a,b两数. pascal多重循环：A、B两个自然数的和、差、积、商四个数加起来等于243,求A、B两数. 把360分成两个,使两个数的和是两个数的差的20倍.求这两个数各是多少? 用free pascal编程：输入两个数,求他们的最大公因数和最小公倍数从文件中读取两个整数,输出两个数中较大的一个的平方值.pascal语言编程动脑筋：把“61”分成两个自然数,要使其中一个数等于另一个数的十位数字的平方.

Pascal编程 把3025分成两个数30和25,把这两个数加起来得到55,55的平方又等于原来的数3025.

Pascal编程把3025分成两个数30和25,把这两个数加起来得到55,55的平方又等于原来的数3025.