Надо составить программу на языке Паскаль АБС для получения таблицы истинности. Для этого надо A и B присвоить 0 to 1 do.(цикл for) Надо получить таблицу истинностьи A and B и not A
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
var A,B,C:boolean;
function f(C,B,A:boolean):boolean;
begin
f:=((A and C) and(not B))and(B or A);
end;
begin
writeln('C':7,'B':7,'A':7,'F':7);
for C:=false to true do
for B:=false to true do
for A:=false to true do
writeln(C:7,B:7,A:7,f(C,B,A):7);
readln;
end.