Исключающее или XOR

x XOR y – истинно, когда значения x и y различны.

Пример 1. Определить, является ли введенное число четным. Вывести true (четное), false (нечетное).

program primer;

var

N: integer;

f: boolean;

begin

Writeln(‘N=');

Readln(N);

F:= N mod 2 =0;

Writeln(F);

Readln;

end.

Пример 2. Определить, принадлежит ли введенное число интервалу (0; 10).

0< x< 10

(x>0) and (x<10)

program primer;

var

x: integer;

f: boolean;

begin

Writeln(‘x=');

Readln(x);

F:= (x>0) and (x<10);

Writeln(F);

Readln;

end.

Команды ветвления

Не нашли, что искали? Воспользуйтесь поиском: