Algoritmy:

Zadání:

Vytvořte proceduru pro přehození dvou čísel typu integer bez užití pomocné proměnné

Musí platit, že CISLO1 + CISLO2 < MAXINT

Procedure PrehodInt(var A,B:integer);
{Funkce prehodi dve cisla typu integer}
begin {PrehodInt}
  A:=A+B;
  B:=A-B;
  A:=A-B;
end; {PrehodInt}