p78 德摩根定律
//78 program test; var j,k:byte; begin randomize; //有这句,每次取得的随机数会不同。 j:=random(256); //取得256以内的随机数 k:=random(256); writeln( j,' ',k ); writeln; writeln( not(j or k) ); writeln( not(j) and not(k) ); writeln; writeln( not(j and k) ); writeln( not(j) or not(k) ); end.