Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  ss
Language: PASCAL
Code:
program HelloWorld;
var
  i,s,n:integer;
begin
readln(n);
i:=1;
while i<=n do 
if (i mod 2) <>0 then begin s:=s*i; i:=i+1; end;
write(s);
readln;
end.
          
          
Comments: