Andrej, хехъ я универовскую формулу для числа перестановок то выводил сам, т.к. не помнил и не гуглил для чистоты рез-та, а тут школу вспомнить... (12лет прошло со школы то) Кому интересно, скидываю свои решения на перле: print length($k*(10**($m-length($k)))+$k)==$m?$k*(10**($m-length($k)))+$k:$k*(10**($m-length($k)))-$k;($k,$m)=split/\s+/,<>; ($k,$n)=split/\s+/,<>; if ($k>$n) {print 0;exit(0);} $s=$d=1; for($i=0;$i<$k;$i++) {$s*=$n-$i if $n!=$i;$d*=$i+1;} printf("%.0f", $s/$d); while(/([a-zA-Z]+)/ig) { $w{$1}++; $c++; } } for my $key ( keys %w ) {$s+=$w{$key}**2;} print ($c**2-$s); while($_=<>){ $_=<>; for(/\d/g){ $b+=$a=$_; } print $b%3==0 && $a%5==0?"YES":"NO";