Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Question!


Name: C_R
Title:
  Function
Question:
Please explain how this programme works.

program Addnum(input,output);
var
     a:integer;
function Add(j:integer):integer;
var
     T,i:integer;
begin
T:=0;
for i:=j downto 1 do
T:=T i;
Add:=T;
end;
begin
a:=5;
writeln(Add(a));
end.
Answers: