pe9.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      2112,         67]
NotebookOptionsPosition[      1462,         48]
NotebookOutlinePosition[      2035,         66]
CellTagsIndexPosition[      1992,         63]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"a", "*", "b", "*", "c"}], "/.", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "+", 
       RowBox[{"b", "^", "2"}]}], "==", 
      RowBox[{"c", "^", "2"}]}], "&&", 
     RowBox[{"a", "<", "b", "<", "c"}], "&&", 
     RowBox[{
      RowBox[{"a", "+", "b", "+", "c"}], "==", "1000"}]}], ",", 
    "PositiveIntegers"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8471650694989896`*^9, 3.8471650694999857`*^9}, {
  3.847165304710919*^9, 3.8471653280071025`*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"677a0283-2e11-46a7-bd4b-0c9a933ed08d"],

Cell[BoxData[
 RowBox[{"{", "31875000", "}"}]], "Output",
 CellChangeTimes->{3.847165071912325*^9, 3.8471651064204273`*^9, 
  3.847165337201481*^9},
 CellLabel->"Out[16]=",ExpressionUUID->"1b1e33f0-ec95-4776-9b59-da62843b59d3"]
}, Open  ]]
},
WindowSize->{1041, 586},
WindowMargins->{{Automatic, 373}, {-33, Automatic}},
FrontEndVersion->"12.3 for Microsoft Windows (64-bit) (July 9, 2021)",
StyleDefinitions->FrontEnd`FileName[{$RootDirectory, "C:", "Users", "stary", 
   "AppData", "Roaming", "Mathematica", "SystemFiles", "FrontEnd", 
   "StyleSheets"}, "OD.nb", CharacterEncoding -> "UTF-8"],
ExpressionUUID->"449a8f34-3241-4731-b3c2-e52ed05fb9e0"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 636, 17, 38, "Input",ExpressionUUID->"677a0283-2e11-46a7-bd4b-0c9a933ed08d"],
Cell[1219, 41, 227, 4, 67, "Output",ExpressionUUID->"1b1e33f0-ec95-4776-9b59-da62843b59d3"]
}, Open  ]]
}
]
*)