Program LogOper;
var
 n, m: integer;
begin
 while not EOF do
 begin
 write('n,m= ');
 readln(n,m);
 writeln(' not= ', not n,' ', not m);
 writeln(' and= ', n and m);
 writeln(' or= ', n or m);
 writeln(' xor= ', n xor m);
 writeln(' shl= ', n shl m);
 writeln(' shr= ', n shr m)
 end
end.
В программе организуется ввод двух произвольных целых чисел и печать результата применения к ним всех логических операций.


2012-06-25 • Просмотров [ 2241 ]