问一下这一题对么

level 3

仙楽▫ 楼主

var
a,b,c,d,e:integer;
begin
read(a,b,c,d);
d:=e mod 10;
c:=(e div 10)mod 10;
b:=e div 100;
a:=e div 1000;
writeln(d*1000+b*100+c*10+d);
readln
end.
求指出错误。

2016年08月08日 09点08分 1

level 3

仙楽▫ 楼主

第一题算出来是0

2016年08月08日 09点08分 3

level 3

仙楽▫ 楼主

有人么

2016年08月08日 10点08分 4

level 3

仙楽▫ 楼主

2016年08月08日 10点08分 5