Question

Viết chương trình s=1/3+1/5+...+1/2n+1 cho đến khi n>10^4 Viết bằng pascal giúp em với ạ cần gấp lắm ạ

Answer 1

uses crt;

var i,n:integer;

s:real;

begin

clrscr;

n:=1;

s:=0;

while (n<=10000) do 

begin

n:=n+2;

s:=s+1/n;

end;

writeln(s:4:2);

readln;

end.