求PASCAL小程序两道解法1.现有N堆纸牌,编号分别为1.2.3...N,每堆有若干张纸牌.但纸牌总数为N的倍数.可以在任意堆上取若干纸牌,然后移动到其他的堆上.移动规则：在开头1上取的纸牌,可以移动

Question

求PASCAL小程序两道解法
1.现有N堆纸牌,编号分别为1.2.3...N,每堆有若干张纸牌.但纸牌总数为N的倍数.可以在任意堆上取若干纸牌,然后移动到其他的堆上.
移动规则：在开头1上取的纸牌,可以移动到2上.在结尾N上取得纸牌,可以移动到N-1上.而在中间任意一堆上取得纸牌,可以移动到相邻的纸牌堆上.
现要求找出一种方法,用最少的移动次数使各堆上的纸牌数目相等.
2.给一个位数小于4位的正整数X,计算出最小正整数Y,使X于Y的积由1和0构成.
例：输入X=6,输出Y=185,输出X与Y之积1110.
忘了说了,第一题N大于一小于100
第二题吗,Y视N大小而定,N小于等于999大于等于1

Answer 1

到Pascal吧提提看 My code:Program program4;Var a:array[1..100] of integer;n,i,t,ad:integer;x:real;b:boolean;Function deng(arr:array of integer):boolean;var j:byte;begin deng:=true; for j:=2 to n do ...