Delphi 7 - выполнить операцию, если (var) = 1,3,5,7 и т. Д.

Question

мой Delphi 7 очень прост, поэтому заранее извиняюсь, если это кажется глупым вопросом. Я хочу, чтобы мой код что-то делал, если число равно 1 или 3 или 5 и т. Д. И т. Д., А также сделать что-то еще, если это 2 или 4 или 6 и т. Д. И т. Д. Любой совет будет очень благодарен. Благодаря

Tony

Answer 1

Вы, вероятно, ищете функцию odd().

Он возвращает true для 1,3,5,7, и он возвращает false для 2,4,6.

Пример

var 
    x: Integer; 
.... 
x := ...; 
if odd(x) then 
    writeln('x is odd') 
else 
    writeln('x is even') 

В целом, если вы хотите, чтобы проверить делимость ряд других, чем два вы бы использовать оператор mod. Возвращает остаток целочисленного деления. Таким образом

if x mod 3 = 0 then 
    writeln('x is divisible by 3') 
else 
    writeln('x is not divisible by 3')