Как на языке Паскаль записать не кратность? Например, икс не кратно 7. Обязательно объясните, почему именно так.

В языке Паскаль проверить, что число не кратно 7, можно с помощью операции остатка от деления — mod и отрицания условия.

Например:

pascal




if x mod 7 <> 0 then
  writeln('Число не кратно 7');

Объяснение:

Операция mod показывает остаток от деления одного числа на другое. Если число делится нацело, остаток будет равен нулю.

Например:

pascal




14 mod 7 = 0
15 mod 7 = 1
20 mod 7 = 6

Числа, кратные 7, всегда дают остаток 0, поэтому условие кратности записывается так:

pascal




x mod 7 = 0

А нам нужно обратное — чтобы число не было кратным 7, то есть остаток должен быть не равен нулю. В Паскале оператор "не равно" записывается как <>, поэтому получаем:

pascal




x mod 7 <> 0

Например, если x = 15:

15 mod 7 = 1
1 <> 0

условие истинно, значит число не кратно 7.

Если x = 21:

21 mod 7 = 0
0 <> 0

условие ложно, потому что 21 кратно 7.