?? ac1138.pas
字號:
program ural1138;
const
maxn=10000;
var
l:array[1..maxn]of integer;
n,s,i,t:integer;
p:longint;
begin
fillchar(l,sizeof(l),0);
readln(n,s);
l[s]:=1;
for i:=s to n-1 do begin
p:=101;
while i*p/100<=n do begin
if i*p mod 100=0 then begin
t:=i*p div 100;
if (l[i]>0) and (l[i]+1>l[t]) then
l[t]:=l[i]+1;
end;
inc(p);
end;
end;
t:=0;
for i:=s to n do
if l[i]>t then t:=l[i];
writeln(t);
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -