Хабр Курсы для всех
РЕКЛАМА
Практикум, Хекслет, SkyPro, авторские курсы — собрали всех и попросили скидки. Осталось выбрать!
#!/usr/bin/perl -w
findSol();
sub findSol
{
my $m = 1000;
for (my $a = 1; $a < $m; $a++)
{
for (my $b = $a + 1; $b < $m; $b++)
{
for (my $c = $b + 1; $c < $m; $c++)
{
print "$a $b $c\n" if(IsPower2($a*$b - $c) && IsPower2($b*$c - $a) && IsPower2($c*$a - $b));
}
}
}
}
sub IsPower2
{
my ($t) = @_;
return 0 if ($t <= 1);
return 1 if ($t == 2);
return (0 == ($t & ($t - 1)));
}
5 июля в Чианг-Мае (Таиланд) завершилась 56-я Международная математическая олимпиада. Первое место заняли США, второе — Китай, третье — Южная Корея, четвертое — Северная Корея, пятое — Вьетнам, шестое — Австралия, седьмое — Иран.
Alexander Gunning (Австралия) — 36
Международная математическая олимпиада школьников 2015. Могу ли я? Хочу ли я? Решу ли я?