Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  suite
Language: PASCAL
Code:
Program HelloWorld(output);
var k,a,p:real;
i:integer;
begin
p:=2;
i:=1;
repeat k:=p;
writeln('p',i,'=',p);
p:=p*((i-1)/i)*((i+ 1)/i);
a:=p-k;
i:=i+2;
until a<=0.0004 ;
  
end.
          
Comments: