Добавил:
hunter__3211
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:лаба 1 семестр 2
.pas var
a, b, c: boolean;
begin
for a := false to true do
for b := false to true do
for c := false to true do
writeln(ord(a), ord(b), ord(c),
ord(not (not (a) xor b) and (not (a) or not (c))))
end.
a, b, c: boolean;
begin
for a := false to true do
for b := false to true do
for c := false to true do
writeln(ord(a), ord(b), ord(c),
ord(not (not (a) xor b) and (not (a) or not (c))))
end.
Соседние файлы в предмете Алгоритмические языки и основы программирования