2个初级新手简单的pascal语言程序 请进

来源：百度知道 编辑：UC知道 时间：2024/05/10 10:57:27
1.找出所有的四位回文数：（回文数就是一个数从左往右读与从右往左读都是同一个数）
2.编程实现两个数的加法运算。
样例输入：23+45
样例输出：68

1.先把4位数的千，百，十，个位标为A,B,C,D，用函数取出A,B,C,D为4个字符，再把A,B,C,D转为数字，比较A=D?B=C?符合列出，不符合开始验证下一个。
2.2个加数各2位，算上“+”号共5位字符，先用函数取出前两个字符转为数字，再取出后两个字符转为数字，两个数字相加，把得到的数字转为字符列出。

1.先把4位数的千，百，十，个位标为A,B,C,D，用函数取出A,B,C,D为4个字符，再把A,B,C,D转为数字，比较A=D?B=C?符合列出，不符合开始验证下一个。
2.2个加数各2位，算上“+”号共5位字符，先用函数取出前两个字符转为数字，再取出后两个字符转为数字，两个数字相加，把得到的数字转为字符列出。
一楼没登陆，现在登陆后回答

.2个加数各2位，算上“+”号共5位字符，先用函数取出前两个字符转为数字，再取出后两个字符转为数字，两个数字相加，把得到的数字转为字符列出。

var
a,b,i,j:integer;
begin
for i:=1 to 9 do
for j:=0 to 9 do
write(i+j*10+j*100+i*1000:5);
end.

var
a,b:integer;
begin
writeln('shurulianggejiangshu:')
readln(a,b);
writeln(a+b);
end.

质量绝对OK！！！！！
别忘了给偶加分！！！！！