?? ac1203.pas
字號:
program ural1203;
const
maxt=30000;
var
s,f:array[0..maxt]of word;
n,i:longint;
ts,te:word;
function max(a,b:word):word;
begin
if a>b then max:=a else max:=b;
end;
begin
read(n);
for i:=1 to n do begin
read(ts,te);
s[te]:=max(s[te],ts);
end;
for i:=2 to maxt do
if s[i]=0 then
f[i]:=f[i-1]
else
f[i]:=max(f[s[i]-1]+1,f[i-1]);
writeln(f[maxt]);
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -