题目是：1221是一个非常特殊的数，它从左边读和从右边读是一样的，编程求所有这样的四位十进制数。
我编的见二楼。

program hkr;
var
a,b,c,d,n,j,i:integer;
begin
n:=0;
for i:=1000 to 9999 do
begin
n:=i;
a:=n div 1000;
b:=n mod 1000 div 100;
c:=n mod 100 div 10;
d:=n mod 10;
if a+(10*b)+(100*c)+(1000+d)=n then
begin
writeln(n);
end;
end;
readln
end.

就是输出不出来

换了种方法，出来了。能解释一下上面的为什么错了呢？

program hkr;
var
a,b,c,d,i,n:integer;
begin
i:=999;
repeat
i:=i+1;
n:=i;
a:=n div 1000;
b:=n div 100 mod 10;
c:=n div 10 mod 10;
d:=n mod 10;
if a+10*b+100*c+1000*d=n then
begin
writeln(i);
end;
until i=9999;
readln
end.
对了

哦，我知道了，最上面的1000*d写成了1000+d，大家打扰了

楼主我带来了水水的
十五字
再见了。

for i:=1 to 9 do for j:=0 to 9 do writeln(i,j,j,i);

打表吧。

这样的算法是有局限性的
推荐：
t:=0;
n:=x;
while n>0 do
begin
t:=t+n mod 10;
n:=n div 10;
end;
If t=x
then flag:=true;

输入为什么在最后呢

program ex(input,output);
var a,b:char;
begin
for a:='1' to '9' do
for b:='0' to '9' do
writeln(a+b+b+a);
readln();
end.
用我的吧，最简单

至于你的，我来讲讲。
program hkr;
var
a,b,c,d,n,j,i:integer;
begin
n:=0;
for i:=1000 to 9999 do
begin
n:=i;
a:=n div 1000;
b:=n mod 1000 div 100;
c:=n mod 100 div 10;
d:=n mod 10;
if a+(10*b)+(100*c)+(1000+d)=n then //这一行打错了，是(1000*d)
begin
writeln(n);
end;
end;
readln
end.

所有节日对于我来说就只有两字——吃啥！！

楼主我带来了水水的十五字再见了。