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

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

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

C

#include <stdio.h>

int main(int argc, char* argv[])

{

    int vx;
    printf("整数を入力してください：");

    scanf("%d", &vx);
    if (vx % 5)

        puts("その数は５で割り切れません。");

    else

        puts("その数は５で割り切れます。");
    return 0;

}

実行結果

R:\>lesson016\project1.exe

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

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

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

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

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

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

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

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

Ruby

print "整数を入力してください："
vx = STDIN.gets.chomp.to_i

if (vx % 5 == 0)
    puts "その数は５で割り切れます。"
else
    puts "その数は５で割り切れません。"
end

実行結果

L:\>ruby  l:\lesson_03_016.rb

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

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

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

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