#!/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});
}
program asdassg;
uses crt;
var a:array [1..10]of integer;i,lmax,l:integer;
begin
writeln('vvedite elementu vectora') ;
for i:=1 to 10 do read (a[i]) ;
for i:=1 to 10 do write (a[i],' ' );
writeln;
lmax:=0; l:=0;
for i:=2 to 10 do begin
if (a[i]=a[i-1]) and (a[i]=0) then l:=l+1 else l:=1;
if l>lmax then lmax:=l;
end;
writeln('samaya dlinnaya posledovatelnost 0 =',lmax);
end.
С))))))))))))))))))))))))))))))))))))))))))))))))))))))
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-10,10); a.Println;
Writeln('П=',a.Where(x->x<0).Aggregate(BigInteger(1),(x,y)->x*y))
end.
<u>Пример</u>
n= 15
-9 1 -6 -2 -9 4 5 -1 6 -6 6 -4 0 5 -10
П=233280
n= 100
4 5 10 -2 9 3 0 7 -2 1 9 -1 -1 -5 -7 5 -4 -6 7 4 -5 10 6 -1 1 -4 -2 5 -6 -10 0 0 -7 -1 -1 7 -6 -1 -3 4 3 -9 7 7 0 -5 7 1 -8 -1 9 6 1 9 6 5 9 1 7 2 -6 6 2 -2 -10 -2 -4 10 6 -3 0 7 8 -8 -10 -7 -7 10 10 -4 0 8 3 6 -8 5 10 -6 4 4 8 4 2 5 -1 8 0 -2 6 -9
П=14271704784175104000000
В пятеричной системе счисления
432:12 = 31.32412032412032412032412032412032412032412032412<span>032
А если сокращать то: 31.3</span>