Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Project1;
- {$APPTYPE CONSOLE}
- {$R *.res}
- uses
- System.SysUtils;
- var
- A, B, C, D, E, F: Integer;
- begin
- writeln( 'A | B | C | D | E | F');
- writeln( '---------------------');
- for A := 0 to 1 do
- for B := 0 to 1 do
- for C := 0 to 1 do
- for D := 0 to 1 do
- for E := 0 to 1 do
- begin
- write( A, ' | ');
- write( B, ' | ');
- write( C, ' | ');
- write( D, ' | ');
- write( E, ' | ');
- 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);
- write(F, ' ');
- writeln;
- end;
- readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement