Pascal остаток от деления -- mod (Проверка четности/нечетности, деления нацело с помощью mod)

Оператор mod

Для получения остатка от деления числа $A$ на число $B$ используйте выражение с оператором mod:
$ A \; mod \; B$

Например:

b := 78 mod 33; // получим  12 = 78 - 66 = 78 - 33*2

Примеры для конкретных чисел

При этом (результат операции -- остаток от деления):

5 mod 2  // 1
3 mod 2  // 1
6 mod 2  // 0
8 mod 2  // 0
4 mod 1  // 0
3 mod 5  // 3

Узнать делится ли число нацело на другое

С помощью условного оператора в Паскаль можно узнать делится ли одно число на другое.
Приведём пример программы, которая получает из консоли (от пользователя) два целых числа и проверяет делится ли первое на второе с помощью оператора mod.

Идея состоит в том, что если число $a$ делится на $b$ нацело, то остаток от такого деления равен нулю.
Приведём решение:

var a, b:integer;
begin
  writeln('vvedite chislo a:');
  readln(a); // считываем число а
  writeln('vvedite chislo b:');
  readln(b);  // считываем число b

  if (a mod b) = 0 then  // проверяем делимость
    writeln(a, ' delitcy na ', b, ' nacelo')
  else
    writeln(a, ' NE delitcy na ', b, ' nacelo');

  readln();  // удержимаем консоль
end.   

Четность/нечетность (делимость на 2)

Аналогично коду выше, если число делится нацело на 2 -- то оно четное (остаток равен нулю), иначе -- нечетное.