За­ме­тим, что тре­уголь­ник яв­ля­ет­ся пря­мо­уголь­ным, если квад­рат длины ги­по­те­ну­зы тре­уголь­ни­ка будет равен сумме квад­ра­тов длин ка­те­тов этого тре­уголь­ни­ка. Тогда в ячей­ке D1 за­пи­шем фор­му­лу =(МАКС(A1:C1))^2 и ско­пи­ру­ем её во все ячей­ки диа­па­зо­на D2:D5000. В ячей­ке E1 за­пи­шем фор­му­лу:

и ско­пи­ру­ем её во все ячей­ки диа­па­зо­на E2:E5000. Таким об­ра­зом, по­лу­чим квад­рат длины ги­по­те­ну­зы и сумму квад­ра­тов ка­те­тов для каж­дой трой­ки чисел. После этого в ячей­ку F1 за­пи­шем фор­му­лу =ЕСЛИ(D1=E1;1;0) и ско­пи­ру­ем её во все ячей­ки диа­па­зо­на F2:F5000. Те­перь, вос­поль­зо­вав­шись фор­му­лой =СУММ(F1:F5000), по­лу­чим ответ  — 2.

Ответ: 2.

При­ведём ре­ше­ние Сер­гея Ка­лу­ги­на на языке Python.

При­ме­ча­ние. Файл сле­ду­ет со­хра­нить в фор­ма­те csv.

При­ведём ре­ше­ние Ильи Ан­дри­а­но­ва на языке Python.

При­ме­ча­ние. Файл сле­ду­ет со­хра­нить в фор­ма­те txt.

При­ведём ре­ше­ние Сер­гея Донец на языке PascalABC.NET.

Файл сле­ду­ет со­хра­нить в фор­ма­те .xlsx или .txt или .csv. Вы­брать пе­ре­мен­ную со­от­вет­ству­ю­щую рас­ши­ре­нию файла,

не­ис­поль­зу­е­мые пе­ре­мен­ные за­ком­мен­ти­ро­вать или уда­лить, ис­поль­зо­вать толь­ко ту , ко­то­рая со­от­вет­ству­ет рас­ши­ре­нию файла:

uses XLSX;
begin
var xlsx:=ReadXLSXAsInts('09.xlsx');
var txt:=ReadAllLines('09.txt').Select(n->n.ToIntegers);
var csv:=ReadAllLines('09.csv').Select(t -> t.Replace(';', ' ')).Select(n->n.ToIntegers);
csv // xlsx txt csv вы­брать пе­ре­мен­ную со­от­вет­ству­ю­щую рас­ши­ре­нию файла
.Select(n->n.Order)
.Count(\(a,b,c)->a*a+b*b=c*c)
.Println;
end.