Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  h
Language: PASCAL
Code:
uses Math;
var i: integer;

function factorial(n: integer) :extended;
 var i :integer;

 begin
 factorial:=1;
 for i:=1 to n do
 factorial:=factorial*i;
 end;

begin
for i:=1 to 60 do
 writeln(i, ' ', factorial(i));
end.
          
          
Comments: