Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  sd
Language: PASCAL
Code:
program fadfdf;
var     n:integer;
     S:real;
begin
     S:=0;
     write('nhap n'); readln(n);
     while 1/sqr(2*n) >= 0.0001 do
     Begin
     S:=S+1/sqr(2*n);
     end;
     write('S');
     readln;
end.

          
Comments: