Pascal编程 把3025分成两个数30和25,把这两个数加起来得到55,55的平方又等于原来的数3025.Pascal编程把3025分成两个数30和25,把这两个数加起来得到55,55的平方又等于原来的数3025.请读者输入“1”,
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/20 09:44:10
Pascal编程 把3025分成两个数30和25,把这两个数加起来得到55,55的平方又等于原来的数3025.Pascal编程把3025分成两个数30和25,把这两个数加起来得到55,55的平方又等于原来的数3025.请读者输入“1”,
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）
Pascal编程 把3025分成两个数30和25,把这两个数加起来得到55,55的平方又等于原来的数3025.Pascal编程把3025分成两个数30和25,把这两个数加起来得到55,55的平方又等于原来的数3025.请读者输入“1”,
这个问题,错就错在少了个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循环里的