consolep.dpr

来自「dephi的一些小程序啊」· DPR 代码 · 共 17 行

program consoleP;

{$APPTYPE CONSOLE}

uses
  SysUtils;
 var a,b,c,d,e,f:integer;
begin
  writeln('a=',not 4);
   writeln('b=',6 or 2);
   writeln('c=',4 and 2);
   writeln('d=',6 xor 2);
   writeln('e=',9 shr 2);
   writeln('f=',1 shl 2);
   readln;
end.