読み込んだ整数値は奇数か偶数か (do文)

明解Ｃ言語 入門編 > 4. プログラムの流れの繰り返し >

読み込んだ整数値は奇数か偶数か (do文)

Delphi

program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;

var

    cont, no: Integer;

begin

    repeat

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

        read(no);
        if (no mod 2 = 0) then

            writeln('その数は偶数です。')

        else

            writeln('その数は奇数です。');
        write('もう１度？ [Yes…0／No…9]：');

        read(cont);

    until cont <> 0

end.

実行結果

S:\>lesson024\project1.exe

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

その数は奇数です。

もう１度？ [Yes…0／No…9]：0

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

その数は偶数です。

もう１度？ [Yes…0／No…9]：9