Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  factorial
Language: PASCAL
Code:
program Factorial;
var
  n, i    : integer;
begin
  writeln('teclea n');
  Readln(n);
  i:=1;
  factorial:=1; 
while(i<=n) do
begin
     factorial:=factorial*1;
     i:=i*1;
end;
readln;
end.          
          
Comments: