Составьте программу в результате выполнения которой выясняется входят ли четные цифры в запись данного трехзначного числа.
Составьте программу в результате выполнения которой выясняется входят ли четные цифры в запись данного трехзначного числа.
Гость
Ответ(ы) на вопрос:
Гость#!/usr/bin/perl
use strict;
use warnings;
use utf8;
my $action = _find_chet();
sub _find_chet{
my $string = ;
if($string !~/^[\d]$/six){ return q{'Допускаются только цифры в строке.'} }
my @letters = split($string,'');
foreach(@letters){ return(q{have found: }.$_."\n") if(($_ % 2) == 0); }
return(q{Nothing found});
}
Не нашли ответ?
Похожие вопросы