SunSky...

摘要： 题目描述见tyvjView Code 1 program sky; 2 var 3 i,j,m,n : longint; 4 a : array[0..50,0..50] of longint; 5 begin 6 readln(n,m); 7 a[0,1]:=1; 8 for i:=1 to m do 9 begin10 a[i,1]:=a[i-1,n]+a[i-1,2];11 for j:=2 to n-1 do a[i,j]:=a[i-1,j-1]+a[i-1,j+1];12 a[i,n]:=a[i-1... 阅读全文

摘要： 题目描述略，巨水无比View Code 1 program sky; 2 var 3 n,i,k,kk,lun,ans : longint; 4 c : char; 5 s : string; 6 f,q : array[0..1000] of longint; 7 a : array[0..1000] of string[25]; 8 bj,bjj : boolean; 9 procedure qs(l,r : longint );10 var11... 阅读全文