[i]:=ord(s2[lb-i+1])-48;jiafa;if(lb>la)or((la=lb)and(s1<s2))thenbeginwrite('-');x:=la;la:=lb;lb:=x;c:=a;a:=b;b:=c;end;10jianfa;end.2.亿进制加法减法背景:笨笨骨牌(domino.pas/c/cpp)笨笨对多米诺骨牌有很大的兴趣,然而他的骨牌比较特别,只有黑色的和白色的两种。他觉得如果存在连续三个骨牌是同一科颜色,那么这个骨牌排列便是不美观的。现在他有n个骨牌要来排列,他想知道不美观的排列的个数。由于数字较大,数学不好的他不会统计,所以他请你来帮忙。希望你在一秒内求出不美观的排列的个数。【输入格式】只有一个正整数,即要排列的骨牌个数。【输出格式】一个数,即不美观的排列个数。【样例输入】4【样例输出】6【样例解释】有四种不美观的排列。黑黑黑黑,白白白白,黑黑黑白,白白白黑,黑白白白,白黑黑黑【数据范围】20%的数据,n≤60;50%的数据,n≤600;100%的数据,n≤10000typearr=array[1..1000]oflongint;varlf,lg:array[0..10000]oflongint;f,g:array[0..10000]ofarr;er:arr;i,j,m,n,ler:longint;functiongj1(a,b:arr;la,lb:longint;varlc:longint):arr;varc:arr;i,j,jin,x:longint;beginjin:=0;fillchar(c,sizeof(c),0);ifla>lbthenlc:=laelselc:=lb;fori:=1tolcdobeginx:=a[i]+b[i]+jin;c[i]:=xmod100000000;jin:=xdiv100000000;end;
全文预览
