pravouhle_trojuhelniky_s_obvodem_10000 [Programování]

 
const
  MAX = 10000;         {maximalni obvod, pro ktery vypisovat}
  MINPERIMETER = 12;   {nejmensi pravouhly trojuhelnik s celocis. stranami je jak znamo (3, 4, 5)}
 
var
  a,               {delka kratsi z odvesen}
  b,               {delka delsi z odvesen}
  p: integer;      {obvod}
begin
 
  {vypiseme vsechny trojuhelniky s obvodem "p"}
  for p := MINPERIMETER to MAX do begin
 
    {vypiseme vsechny trojuhleniky s obvodem "p" a delkou prvni odvesny "a", "a" urcite neni vic nez tretina obvodu}
    for a := 1 to p div 3 do begin
 
      {obvod a delka kratsi odvesny nam jednoznacne urcuji delku delsi odvesny (snadno odvodime vzorecek)}
 
      {nasledujici blok se provede, pouze pokud je pro dana "p" a "a" trojuhelnik celociselny}
      if (p * (2 * a - p)) mod (2 * (a - p)) = 0 then begin
          b := (p * (2 * a - p)) div (2 * (a - p));
          if b < a then break;
          writeln(a, ' ', b, ' ', p - a - b);
      end;
    end;
  end;
end.