Срочно прошу помощи!!!ПАСКАЛЬ 8 КЛАСС! Напишите программу, которая строит таблицу...

Question

Срочно прошу помощи!!!ПАСКАЛЬ 8 КЛАСС!
Напишите программу, которая строит таблицу истинности для логической формулы (not a)or(not b)or c. Подумайте сколько вложенных циклов вам понадобиться.

Answer 1

Uses Crt;
var
  a,b,c:boolean;
begin
  ClrScr;
  for a:=False to True do
  for b:=False to True do
  for c:=False to True do
  Writeln(a:6,b:6,c:6,(not a) or (not b) or c:6);
  ReadKey
end.

Результат выполнения программы:
 FALSE FALSE FALSE  TRUE
 FALSE FALSE  TRUE  TRUE
 FALSE  TRUE FALSE  TRUE
 FALSE  TRUE  TRUE  TRUE
  TRUE FALSE FALSE  TRUE
  TRUE FALSE  TRUE  TRUE
  TRUE  TRUE FALSE FALSE
  TRUE  TRUE  TRUE  TRUE