Viết chương trình giá trị biểu thức S S=1+1/1.2+1/2.3+…+1/N(N+1)

0 bình luận về “Viết chương trình giá trị biểu thức S S=1+1/1.2+1/2.3+…+1/N(N+1)”

1. uses crt;

   var i,n:integer;s:real;

   begin

   clrscr;

   readln(n);

   s:=1

   for i:=1 to n do s:=s+1/(i*(i+1);

   write(s:10:2);

   readln

   end.

   Trả lời

2. program ct;

   uses crt;

   var S:real;

          n,i:integer;

   begin

   clrscr;

   write(‘nhap n:=’);readln(n);

   S:=0;

   for i:=1 to n do S:=S+1/i*(i+1);

   writeln(‘S:=’,S);

   readln

   end.

   Trả lời