Advertisement
Guest User

Untitled

a guest
Nov 14th, 2019
156
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 1.14 KB | None | 0 0
  1. program Project1;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. {$R *.res}
  6.  
  7. uses
  8.   System.SysUtils;
  9.  
  10. var
  11.    A, B, C, D, E, F: Integer;
  12. begin
  13.    writeln( 'A | B | C | D | E | F');
  14.    writeln( '---------------------');
  15.    for A := 0 to 1 do
  16.       for B := 0 to 1 do
  17.          for C := 0 to 1 do
  18.             for D := 0 to 1 do
  19.                for E := 0 to 1 do
  20.                begin
  21.                  write( A, ' | ');
  22.                  write( B, ' | ');
  23.                  write( C, ' | ');
  24.                  write( D, ' | ');
  25.                  write( E, ' | ');
  26.                  f :=(a or b or c or d or e) and (a or b or c or not d or e) and (a or b or c or not d or not e) and (a or b or not c or d or not e) and (a or not b or c or d or e) and (a or not b or c or not d or not e) and (not a or b or c or d or e) and (not a or b or c or not d or not e) and (not a or b or not c or not d or not e) and (not a or not b or c or d or e) and (not a or not b or c or not d or not e) and (not a or not b or not c or d or e) and (not a or not b or not c or not d or e) and (not a or not b or not c or not d or not e);
  27.                  write(F, '  ');
  28.                  writeln;
  29.                end;
  30.    readln;
  31. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement