Spravil som ti na to funkciu
pow(x, y), ktora ti vypocita x^y.
Kód:
function pow(x:integer; y:integer):integer;
var i, pom:integer;
begin
pom:=1;
for i:=1 to y do
pom:=pom*x;
pow:=pom;
end;
Funkcia vracia typ integer, takze nebude moc vypocitat az take velke cislo ako je 2^64. V pripade, ze by si chcela pocitat mocniny vacsich cisel, pouzi datove typy s vacsim rozsahom.
Ak si chcela len kolko je 2^64, tak by to podla Googla malo byt
2^64 = 1.84467441 × 10^19 