#!/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});
}
Сколько символов в книге?
300*45*60 символов в книге. 1 символ=1байт, поэтому
информационный объем 300*45*60 байт = 810000 байт
¬(1 ∧ (0 ∨ (1 ∧ 0))) ∧ (¬(0 ∨ 1)) = ¬(1·(0+0))·(¬1) = ¬(1·0)·0 = 0
Например список учеников класса,можно составить таблицу по нескольким критериям:рост,вес,пол И так далее