num 1000 while num 1000000 ln length num l6 substr num ln-6 if ln l5 s

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
$num = 1000;
$s = 0;
while ($num < 1000000) {
$ln = length($num);
$l6 = substr($num,$ln-6,1) if ($ln > 5);
$l5 = substr($num,$ln-5,1) if ($ln > 4);
$l4 = substr($num,$ln-4,1);
$l3 = substr($num,$ln-3,1);
$l2 = substr($num,$ln-2,1);
$l1 = substr($num,$ln-1,1);
if ($l6+$l5+$l4 eq $l3+$l2+$l1) {
print 0 x (6-$ln), "$num\n";
$s++;
}
$num++;
}
print "Сумма = $s";