Предмет: Информатика,
автор: marinamikheea
Надо составить программу на языке Паскаль АБС для получения таблицы истинности. Для этого надо A и B присвоить 0 to 1 do.(цикл for) Надо получить таблицу истинностьи A and B и not A
Ответы
Автор ответа:
0
Ответ:
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.
Похожие вопросы
Предмет: Русский язык,
автор: MrParnisha
Предмет: Математика,
автор: assasin0604
Предмет: Русский язык,
автор: мистраил
Предмет: Биология,
автор: Пушинканя231
Предмет: Алгебра,
автор: avraval2009