1. запишите на языке логики логические функции, которые будут принимать значение истина, если справедливы следующие утверждения, и ложь - в противном случае: а) все числа x,y,z равны между собой; б) из чисел x,y,z только два равны между собой; в) каждое из чисел x,y,z положительно; г) только одно из чисел x,y,z положительно; д) значения чисел x,y,z по возрастанию. 2. все формулы, полученные при решении предыдущей , запишите в виде логических выражений на паскале.
277
468
Ответы на вопрос:
1)
a) (x = y) и (y = z)
б) ((x = y) и (y ! = z)) или ((x = z) и (z ! = y)) или ((y = z) и (z ! = x))
! = - "не равно"
в) (x > 0) и (y > 0) и (z > 0)
г) ((x > 0) и (y > 0) и (z < 0)) или ((x > 0) и (y < 0) и (z > 0)) или ((x < 0) и (y > 0) и (z > 0))
(x*y*z> 0) и (x< 0 или y< 0 или z< 0)
д) (x < y) и (y < z)
2)
а) (x = y) and (y = z)
б) ((x = y) and (y < > z)) or ((x = z) and (z < > y)) or ((y = z) and (z < > x))
в) (x > 0) and (y > 0) and (z > 0)
г) ((x > 0) and (y > 0) and (z < 0)) or ((x > 0) and (y < 0) and (z > 0)) or ((x < 0) and (y > 0) and (z > 0))
(x*y*z > 0) and ((x < 0) or (y < 0) or (z < 0))
д) (x < y) and (y < z)
Var sum, i, n: integer; begin read(n); for i: = 1 to n do sum: = sum + i; writeln(sum); end.
Популярно: Информатика
-
oihgoilk19.05.2023 21:44
-
Valentinka07926.05.2021 23:56
-
sooooooyeees07.06.2022 06:14
-
lfhnvjk200709.06.2020 20:13
-
kostetXD21.11.2020 22:17
-
Сашулябрейк18.11.2021 08:38
-
наталя0904.07.2021 16:43
-
marsel23416.09.2020 12:57
-
SandraBulitl27.05.2021 10:48
-
kros22299930.06.2020 23:49