19

19.pl

#!/usr/bin/env perl

use strict;
use warnings;

my $mod3 = 100 % 3;
my $mod7 = 100 % 7;
my $mod11 = 100 % 11;

print "100を3で割った時の余りは$mod3です。\n";
print "100を7で割った時の余りは$mod7です。\n";
print "100を11で割った時の余りは$mod11です。\n";