15 lines
252 B
Perl
15 lines
252 B
Perl
|
|
||
|
|
print "Please enter numbers from 5 to 10\n";
|
||
|
|
|
||
|
|
while (<>) {
|
||
|
|
chop;
|
||
|
|
if ($_ < 5 || $_ > 10) {
|
||
|
|
print "Please enter numbers from 5 to 10\n";
|
||
|
|
} else {
|
||
|
|
print "Thank you - let's have another!\n";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|