社区讨论

运行错误 216，怎么回事？

00__o
SP5PALIN - The Next Palindrome参与者 4已保存回复 5

讨论操作

快速查看讨论及其快照的属性，并进行相关操作。

当前回复
5 条
当前快照
1 份
快照标识符
@mi6uc793
此快照首次捕获于
2025/11/20 10:57
4 个月前
此快照最后确认于
2025/11/20 10:57
4 个月前
查看原帖

原题直达

错误信息：

错误信息

我的代码：

CPP
var
  t,K,i,j:longint;
function palindrome(x:longint):boolean;
var
  s,r:ansistring;
  i:longint;
begin
  str(x,s);
  for i:=length(s) downto 1 do r[length(s)-i+1]:=s[i];
  if s=r then exit(true) else exit(false);
end;
begin
  readln(t);
  for i:=1 to t do
  begin
    readln(K);
    for j:=K+1 to maxlongint do
      if palindrome(j) then begin writeln(j); break; end;
  end;
end.

回复

共 5 条回复，欢迎继续交流。

正在加载回复...