Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Таблица истинности помогите сделать

Ответ оставил Гость

Begin 
write(A:4, B:6, F1:6);writeln;
for A:= false to true do begin
for B:= false to true do begin
F1:= (not(A) or B) and (not(A) or not(A));
write(A:6, B:6, F1:6);writeln;end; end;writeln;write(X:4, Y:6, Z:6, F2:6);
writeln;
for X:= false to true do begin
for Y:= false to true do begin
for Z:= false to true do begin
F2:= (not(X) and Y) or not(Z);write(X:6, Y:6, Z:6, F2:6);writeln;end; end;end;end.