Umiestnenie súboru www.TrSek.com/zadania/pythagoras.pas{ PYTHAGORAS.PAS Copyright (c) Pavel Patak }
{ Vypise vsechna reseni a2+b2=c2 na obrazovku (a,b,c <100). }
{ }
{ Datum:28.10.2004 http://www.trsek.com }
Program Pythagoras;
Var A,B,C : Integer;
Begin
For A:=1 to 100 do
For B:=1 to 100 do
For C:=1 to 100 do
if A*A +B*B = C*C then Write(a:3,' ',b:3,' ',c:4,' ');
{Ta mezera je tam kvuli uprave, write aby se vsechno veslo na obrazovku}
Readln;
End.