Project Euler - 9

Uma implementação para o problema 9 do Project Euler.

Function PE09 {
    For ([Int32]$a=1; $a -lt 333; $a++) {
        For ([Int32]$b=$a; $b -lt 500; $b++) {
            $c = 1000 - $a - $b
            If (($a+$b+$c) -eq 1000) {
                If (($a*$a+$b*$b) -eq ($c*$c)) {
                    Write-Host "a=$a"
                    Write-Host "b=$b"
                    Write-Host "c=$c"
                    Write-Host "a x b x c = " ($a*$b*$c)
                    Return
                }
            }
        }
    }
}

Clear-Host
PE09

a=200
b=375
c=425
a x b x c =  31875000