Составьте программу в результате выполнения которой выясняется входят ли четные цифры в запись данного трехзначного числа.

А можно для паскаля?

#!/usr/bin/perl 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: }.$_."") if(($_ % 2) == 0); } return(q{Nothing found});}