jie_chen_he.pas

来自「本人 菜鸟+学生 ！ 老鸟指教的说 这些是自己写的一写PAS」· PAS 代码 · 共 13 行

program n1;
     var n,s:integer;
     function f(n:integer):integer;
  begin
   if n=0 then f:=1
    else f:=n*f(n-1)
  end;
  begin
   write('n=');
   readln(n);
   writeln('n!=',f(n));
   readln
  end.