17 lines
482 B
Perl
17 lines
482 B
Perl
|
#!/usr/local/bin/perl
|
||
|
|
|
||
|
|
print ("Enter the last number in the sum:\n");
|
||
|
|
$limit = <STDIN>;
|
||
|
|
chop ($limit);
|
||
|
|
$count = 1;
|
||
|
|
$total = $eventotal = 0;
|
||
|
|
for ($count = 1; $count <= $limit; $count++) {
|
||
|
|
$total += $count;
|
||
|
|
if ($count % 2 == 1) {
|
||
|
|
# start the next iteration if the number is odd
|
||
|
|
next;
|
||
|
|
}
|
||
|
|
$eventotal += $count;
|
||
|
|
}
|
||
|
|
print("The sum of the numbers 1 to $limit is $total\n");
|
||
|
|
print("The sum of the even numbers is $eventotal\n");
|