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

• #898 s1ny1 tag almi #897

  Új Válasz 2006-01-19 21:04:50 #898

  Ú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

  

  s1ny1

  tag

  válasz almi #897 üzenetére

  csak az alapját írom. amúgy általában hátul tesztelő ciklussal szokták, esetleg rekurzívan.
  ez most elöl tesztelelő lesz
  program faktor;
  uses crt;
  var
  fakt: longint;
  i,n:byte;
  begin
  fakt:=1;
  writeln('n='); readln(n);
  for i:=1 to n do fakt:=fakt*i;
  writeln('n!= ',fakt);
  readln;
  end.

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