<?
for ($i=100000; $i<=999999; $i++)
{
	settype($i, "string"); 
	if (($i[0]+$i[1]+$i[2])==($i[3]+$i[4]+$i[5]))
	{
		echo "{$i}<br>";
		$sch++;
	}
}
echo "Всего билетов счастиливых: {$sch}";
?>

#!/usr/bin/perl -w

use strict;

my %summa = ();

for my $i ( 0 .. 999 ) {
	push @{ $summa{summa($i)} }, $i;
}

for my $x ( sort { $a <=> $b } keys %summa ) {
	my @x = @{ $summa{$x} };
	for my $i ( @x ) {
		for my $j ( @x ) {
			printf "%03d%03d\n", $i, $j;
		}
	}
}

sub summa
{
	my $x = shift;

	my $s = 0;

	while ( $x ) {
		$s += $x % 10;
		$x = int($x / 10);
	}

	return $s;
}