Vypíše všechna rěšení a2+b2=c2 na obrazovku (a,b,c <100)

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategórie: Zadání z Pascalu

Autor: Pavel Paták
web: www.webpark.cz/programar

Program: Pythagoras.pas
Soubor exe: Pythagoras.exe

Vypíše všechna rěšení a2+b2=c2 na obrazovku (a,b,c <100).
{ 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.