求解 - pascal吧

level 5

一叠情楼主

回文数每次都是error

2015年01月11日 06点01分 1

level 8

要改动两个地方：都是把：k-1-i ===> k+1-i
repeat
if letter[i] = letter[k-i+1] then i := i+1 else begin writeln('error');halt; end;
until (i>=k-i+1);

2015年01月17日 04点01分 3