Программа вводит два целых числа

{ Программа вводит два целых числа и печатает результат применения к ним логических операций. Для выхода из программы ввести Ctrl-z и нажать Enter} 
var
n,m : integer; begin
while not EOF do begin
Write('n,m='); ReadLn(n,m);

WriteLn( '	not=	1 , not n, 'not m);
WriteLnC	and=	' , n and m)
WriteLnC	or =	1 , n or m) ;
WriteLnC	xor=	1 , n xor m)
WriteLn( '	shl=	1 ,n shl m)
WriteLn( '	shr=	1 , n shr m)
end

end.
В программе организуется ввод двух произвольных целых чисел и печать результата применения к ним всех логических операций. Для выхода из программы следует нажать Ctrl-z, и Enter.
Логические операции над логическими данными дают результат логического типа по правилам, указанным в табл. 3.3.

Таблица 3.3

Логические операции над данными типа Boolean
Операнд 1	Операнд 2	not	and	or	xor
True	-	False	-	-	-
False	-	True	-	-	-
False	False	-	False	False	False
False	True	-	False	True	True
True	False	-	False	True	True
True	True	-	True	True	False

Операция отношения IN применяется к двум операндам. Первым (левым) операндом должно быть выражение любого порядкового типа, вторым - множество, состоящее из элементов того же типа, или идентификатор множественного типа. Операция дает TRUE, если левый операнд принадлежит множеству, например:
var
с: char; type
digit = set of ' 0 '..' 9 ' ; begin
if с in digit then .......

Содержание раздела

---

---