Új hozzászólás Aktív témák

• #907 berkine csendes tag almi #897

  Új Válasz 2006-01-20 13:13:36 #907

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  berkine

  csendes tag

  válasz almi #897 üzenetére

  azthiszem sajna elkéstem vele, de hátha valakinek még szüksége lesz rá:
  n! rekurziv módon:
  
  function fakt(n:byte):longint;
  begin
  if n=1 then
  fakt := 1
  else
  fakt :=n*fakt(n-1);
  end;
  

Új hozzászólás Aktív témák