Help for this page

Select Code to Download


  1. or download this
    for ($b=1; $b<$max; $b++) {
  2. or download this
    for ($b=$a; $b<$max; $b++) {
  3. or download this
    my $h = ($a**2 + $b**2) ** (1/2);
if ($h == int $h) {
    print "$a $b $h is a winner\n";
}