Help for this page

Select Code to Download


  1. or download this
    use strict;

...
my $answer=int($num + 0.5) % 5;

print "num is $num answer is $answer \n";
  2. or download this
    C:\Code>perl modtest.pl
num is 3891 answer is 1
num is 3891 answer is 1