Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  text 1
Language: PASCAL
Code:
Program Test;
Var
  N, I, J : Integer;
  P    : longint;

Begin
  Write('Enter a number: ');
  ReadLn(N);
  P := 0;
  For I := 1 to N do
  Begin
    N := I;
    for J := (N+1) to I*2 do N := N*J;
    P := P + J;
  End;

  WriteLn('Result = ', P);
  ReadLn;
End.     
Comments: