?? ac1100.pas
字號:
program ural1100;
const
maxn=150000;
var
x:array[1..maxn]of longint;
n,id,i:longint;
m,t:byte;
begin
read(n);
for i:=1 to n do begin
read(id,m);
x[i]:=id shl 7+m;
end;
for m:=100 downto 0 do
for i:=1 to n do begin
t:=x[i] mod 128;
if t=m then writeln(x[i] shr 7,' ',t);
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -