読み込んだ整数値は５で割り切れないか (if文)

明解Ｃ言語 入門編 > 3. プログラムの流れと分岐 >

読み込んだ整数値は５で割り切れないか (if文)

Delphi

program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;

var

    vx: Integer;

begin

    write('整数を入力してください：');

    read(vx);
    if (vx mod 5 = 0) then

        writeln('その数は５で割り切れます。')

    else

        writeln('その数は５で割り切れません。');
end.

実行結果

S:\>lesson016\project1.exe

整数を入力してください：17

その数は５で割り切れません。
S:\>lesson016\project1.exe

整数を入力してください：15

その数は５で割り切れます。