Составьте программу в результате выполнения которой выясняется входят ли четные цифры в запись данного трехзначного числа.
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
use strict;
use warnings;
use utf8;
my $action = _find_chet();
sub _find_chet{
my $string = <STDIN>;
if($string !~/^[\d]$/six){ return q{'Допускаются только цифры в строке.'} }
my @letters = split($string,'');
foreach(@letters){ return(q{have found: }.$_."\n") if(($_ % 2) == 0); }
return(q{Nothing found});
}