?? ac1098.pas
字號:
program ural1098;
const
n=1999;
maxl=30000;
var
q:array[1..maxl]of char;
l,p,i:integer;
c:char;
begin
l:=0;
repeat
read(c);
if c>=' ' then begin
inc(l);
q[l]:=c;
end;
until eof;
p:=1;
for i:=2 to l do begin
p:=(n+p) mod i;
if p=0 then p:=i;
end;
case q[p] of
'?':writeln('Yes');
' ':writeln('No');
else writeln('No comments');
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -