Примеры использования логических переменных и операций

Проверить, является ли введенное целое число четным (без if)

Program Example3;
uses crt;
var
        a:integer;
        l:boolean;
begin
  clrscr;
  write('a = '); readln(a);
  l := a mod 2 = 0;
  writeln(l)
end.

Поменять местами без использования третьей переменной

Program Example4;
uses crt;
var
        x,y:integer;
begin
  clrscr;
  write('x = '); readln(x);
  write('y = '); readln(y);
  x := x xor y;
  y := x xor y;
  x := x xor y;
  writeln('x = ',x,' y = ',y)
end.

Есть ли две одинаковые цифры в числе

Program Example5;
uses crt;
var
        n,x,y,z:integer;
        w:boolean;
begin
  clrscr;
  write('n = '); readln(n);
  w := false;
  x := n mod 10;
  y := (n mod 100) div 10;
  z := n div 100;
  w := (x = y) or (x = z) or (y = z);
  if w then
        writeln('YES')
  else
        writeln('NO')
end.

Добавить комментарий