摘要：
程序：varl,n,i,j,p:longint;a,b,c,s:array[1..1000]of string;w:string;begin readln(n); for i:=1 to n do readln(a[i]); for i:=1 ... 阅读全文
摘要：
程序：varr,i,j,a,b:longint;ti,tj,best,t:real; begin readln(r); best:=0; for i:=1 to 2*r-1 do for j:=1 to 2*r-1 do begin ... 阅读全文