1098.pas

平时acm训练时ac的源代码

program questions;
 const n=1999;
  var kolvo:integer;
      count:integer;
      i,k:integer;
      a:array[1..30000] of char;
      ch:char;
begin
  kolvo:=0;
  {}
  while not eof(input) do begin
    read(ch);
    if (ch<>#10)and(ch<>#13)and(ch<>#26) then
    begin
      inc(kolvo);
      a[kolvo]:=ch;
    end;
  end;
  k:=0;
  for i:=1 to kolvo do k:=((k+n-1) mod i) + 1;
  if a[k]='?' then writeln('Yes') else
  	if a[k]=' ' then writeln('No') else writeln('No comments');
end.