viết chương trình tính tổng: s= $\sqrt{1+\sqrt{2+\sqrt{3+…++\sqrt{n}}}}$ (có n dấu căn bậc 2)

0 bình luận về “viết chương trình tính tổng: s= $\sqrt{1+\sqrt{2+\sqrt{3+…++\sqrt{n}}}}$ (có n dấu căn bậc 2)”

1. uses crt;
   var f:text; s:real; i,n:longint;
   begin
   clrscr;
      write(‘N=’);readln(n);
      for i:=n downto 1 do 
         s:=sqrt(s+i);
      writeln(‘s= ‘,s);
   readln
   end.

   Bình luận

2. uses crt;
   var i,n:longint;s:real;
   begin
       clrscr;
       s:=0;
       readln(n);
       for i:=n downto 1 do
          begin
              s:=s+i;
              s:=sqrt(s);
          end;
       writeln(s:0:2);
   readln;
   end.

   Bình luận