如果发现广告等破坏行为，请尽量将条目恢复到较早的版本而不是把相应内容直接删除，谢谢合作。

URAL/1098

来自"NOCOW"

跳转到: 导航, 搜索
VAR
  s,st:string;
  i,n:longint;
BEGIN
  while not eof do
    BEGIN
      readln(st);
      s:=s+st;
    END;
  for i:=2 to length(s) do n:=(n+1999) mod i;
  Case s[n+1] of
    '?':writeln('Yes');
    ' ':writeln('No');
      else writeln('No comments');
  END;
END.
//from lzoi_ys
来自"http://www.nocow.cn/index.php/URAL/1098"
个人工具