delphi - 値が整数値の倍数かどうかを確認します

Question

値が 6 または 7 の倍数かどうかを確認する方法を教えてください。

例

....
var
numbers
being
 if (numbers is a multiple of 6 or 7) then begin
    memo1.lines.add(inttostr(numbers));
    numbers := numbers+1;
 end;

Answer 1

数値が別の数値で正確に割り切れるかどうかを確認するには、剰余演算子,を使用しmodます。

mod演算子は、オペランドを除算して得られた剰余を返します。

テストする必要がある条件は、除数による除算後の余りが 0 であることです。

具体例として、12は割った余りが0なので6で割り切れますが、13は6で割り切れず、13を6で割った余りは1です。

したがって、次のような関数を使用できます。

function IsExactlyDivisibleBy(Number: Integer; Divisor: Integer): Boolean;
begin
  Assert(Divisor>0);
  Result := Number mod Divisor = 0;
end;