?? ac1104.pas
字號:
program ural1104;
const
mink:byte=2;
maxk=36;
var
r:array[2..maxk] of byte;
k,x:byte;
c:char;
function chr2num(c:char):byte;
begin
if c>'9' then chr2num:=ord(c)-55 else chr2num:=ord(c)-48;
end;
begin
fillchar(r,sizeof(r),0);
repeat
read(c);
if eoln then readln;
x:=chr2num(c);
if x+1>mink then mink:=x+1;
for k:=mink to maxk do
r[k]:=(r[k]{'*k' is omitted}+x) mod (k-1);
until eof;
for k:=mink to maxk do
if r[k]=0 then begin
writeln(k);
halt;
end;
writeln('No solution.');
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -