ForNext
Only Do What Only You Can Do
016. 読み込んだ整数値は５で割り切れないか (if文)
VBScript
JScript
Perl
更新日 : 2010.10.18
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 その数は５で割り切れます。
PHP
更新日 : 2010.11.03
<?php
print "整数を入力してください：";
$fp = fopen("php://stdin", "r");
$vx = fgets($fp);
fclose($fp);
if ($vx % 5)
print "その数は５で割り切れません。\n";
else
print "その数は５で割り切れます。\n";
?>
L:\>php lesson_03_016.php 整数を入力してください：17 その数は５で割り切れません。 L:\>php lesson_03_016.php 整数を入力してください：15 その数は５で割り切れます。
Python
更新日 : 2010.11.17
# coding: Shift_JIS
vx = raw_input("整数を入力してください：")
if int(vx) % 5 == 0:
print "その数は５で割り切れます。"
else:
print "その数は５で割り切れません。"
N:\>python lesson_03_016.py 整数を入力してください：17 その数は５で割り切れません。 N:\>python lesson_03_016.py 整数を入力してください：15 その数は５で割り切れます。
Ruby
更新日 : 2010.11.01
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 その数は５で割り切れます。
PowerShell
Scala
F#
C
更新日 : 2010.10.08
#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 その数は５で割り切れます。
C++
C++Builder
VC++
C#
Java
更新日 : 2010.11.05
import java.util.Scanner;
class Lesson016 {
public static void main(String[] args) {
System.out.print("整数を入力してください：");
Scanner stdIn = new Scanner(System.in);
int vx = stdIn.nextInt();
if (vx % 5 == 0)
System.out.println("その数は５で割り切れます。");
else
System.out.println("その数は５で割り切れません。");
}
}
L:\>java Lesson016 整数を入力してください：17 その数は５で割り切れません。 L:\>java Lesson016 整数を入力してください：15 その数は５で割り切れます。
Objective-C
D
VB
VB.NET
Delphi
更新日 : 2010.09.24
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 その数は５で割り切れます。