pascal 硬币翻转

4、硬币翻转
源程序名 coin. pas/c/cpp
输入文件名 coin.in
输出文件名 coin.out

在桌面上有一排硬币，共N枚，每一枚硬币均为正面朝上。现在要把所有的硬币翻转成反面朝上，规则是每次可翻转任意N-1枚硬币（正面向上的被翻转为反面向上，反之亦然）。求一个最短的操作序列（将每次翻转N-1枚硬币成为一次操作）。

输入：
输入只有一行，包含一个自然数N（N为不大于100的偶数）。

输出：
输出文件的第一行包含一个整数S，表示最少需要的操作次数。接下来的S行每行分别表示每次操作后桌上硬币的状态（一行包含N个整数（0或1），表示每个硬币的状态：0——正面向上，和1——反面向上，不允许出现多余空格）。
对于有多种操作方案的情况，则只需输出一种。

样例：
coin.in
4

coin.out
4
0111
1100
0001
1111

说一下怎么做，原理是什么，给个标称

题目要求:对于有多种操作方案的情况,则只需输出一种
这样我们随便找一种就行了,我们可以这样想:
对于每一枚硬币,如果这枚硬币翻转奇数次的话,那么他就变成反面朝上了,由于n是偶数,我们可以将每一枚硬币都翻转n-1次,即可满足题目要求.由于每次翻转都要翻转n-1枚硬币,所以可以翻转n次,对于每一次,都有一枚硬币不翻转
程序如下:
var n,i,j:longint;
a:array[1..500] of longint;

begin
read(n);

writeln(n);
for i:=1 to n do begin
for j:=1 to n do if i<>j then
if a[j]=0 then a[j]:=1 else a[j]:=0;
for j:=1 to n do write(a[j]);
writeln;
end;

end.

var a,b,c,s:integer; begin   s:=0;   for c:= 1 to 20 do     for b:=1 to 50 do     for a:=1 to 100 do     if a+2*b+5*c=100 then     begin     s:=s+1;     writeln(a,' ',b,' ' ,c);     end;    writeln('s=',s); end.