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

• #899 c4-eXp aktív tag almi #897

  Új Válasz 2006-01-19 21:09:25 #899

  Ú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

  

  c4-eXp

  aktív tag

  válasz almi #897 üzenetére

  Hali!
  
  Nos, van rekurzív megoldás is, de én inkább az egyszerűbbet fogom leírni (ciklussal).
  
  program nfact;
  uses crt;
  var i, n, osszeg : integer;
  begin
  osszeg:=1;
  writeln('Kerem a szamot: '); readln(n);
  for i:=1 to n do
  osszeg:=osszeg*i;
  writeln(n,' faktorialisa ',osszeg);
  readkey;
  end.
  
  
  Már rég pascaloztam, szóval nem garantálok semmit a kód működőképességével kapcsolatban.

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