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

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

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

Perl

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

if ($vx % 5)
{
    print "その数は５で割り切れません。\n";
}    
else
{
    print "その数は５で割り切れます。\n";
}

実行結果

L:\>perl lesson_03_016.pl

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

その数は５で割り切れません。
L:\>perl lesson_03_016.pl

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

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