Question

How to find pythagorean triplet for which a + b + c = 1000 in Pascal

Answer 1

program FindPythagoreanTriplet;

const
  Sum = 1000;

var
  a, b, c: Integer;

begin
  for a := 1 to Sum div 3 do
    for b := a + 1 to Sum div 2 do
    begin
      c := Sum - a - b;
      if a * a + b * b = c * c then
      begin
        WriteLn('(', a, '^2 = ', a * a, ') + (', b, '^2 = ', b * b, ') = ', c, '^2 = ', c * c);
        WriteLn('a = ', a, ', b = ', b, ', c = ', c);
        WriteLn(a, ' + ', b, ' + ', c, ' = ', a + b + c);
      end;
    end;
end.




(*
run:
  
(200^2 = 40000) + (375^2 = 140625) = 425^2 = 180625
a = 200, b = 375, c = 425
200 + 375 + 425 = 1000
  
*)

 

70+ SQL courses for beginners and professionals