Question

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

Answer 1

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

Answer 2

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