- 卡布列克圆舞曲
- 2009-09-17 18:29:57 @
最后一个点过不去
const maxn=100;
type x=record
str:string;
a:array[1..maxn] of string;
l,r:longint;
end;
var yw:array[1..maxn] of x;
i,n,code,j,l1:longint;
function max(str:string):int64;
var i,l,j:longint;
ch:char;
begin
l:=length(str);
for i:=1 to l-1 do
for j:=i+1 to l do
if ord(str[i])ord(str[j]) then begin ch:=str[i]; str[i]:=str[j]; str[j]:=ch; end;
val(str,min,code);
end;
procedure ywq(k:longint;str1:string);
var i,l2:longint;
begin
for i:=1 to yw[k].r-2 do
if str1=yw[k].a[i] then begin yw[k].l:=i; exit; end;
str(max(str1)-min(str1),str1);
l2:=length(str1);
if l2
0 条评论
目前还没有评论...