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

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

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

Perl

do
{
    print "整数を入力してください：";
    chomp($no = <STDIN>);

    if (int($no % 2))
    {
        print "その数は奇数です。";
    }
    else
    {
        print "その数は偶数です。";
    }

    print "もう１度？ [Yes…0／No…9]：";
    chomp($cont = <STDIN>);
} while ($cont == 0);

print "\n";

do
{
    print "整数を入力してください：";
    chomp($no = <STDIN>);

    if (int($no % 2))
    {
        print "その数は奇数です。";
    }
    else
    {
        print "その数は偶数です。";
    }

    print "もう１度？ [Yes…0／No…9]：";
    chomp($cont = <STDIN>);
} until ($cont != 0);

実行結果

L:\>perl lesson_04_024.pl

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

その数は奇数です。もう１度？ [Yes…0／No…9]：0

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

その数は偶数です。もう１度？ [Yes…0／No…9]：9
整数を入力してください：17

その数は奇数です。もう１度？ [Yes…0／No…9]：0

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

その数は偶数です。もう１度？ [Yes…0／No…9]：9