Viết chương trình tính các tổng sau S= 1/2+1/4+…+1/(2n)

0 bình luận về “Viết chương trình tính các tổng sau S= 1/2+1/4+…+1/(2n)”

1. Program tinh_tong;

   Uses crt;

   Var S,i,n: real;

   Begin

   Write (‘Nhap n=’); 

   Readln (n);

   S:=0;

   For i:= 1 to n do 

   S:= S+ 1/(2*i);

   Writeln (‘Tong S la:’, S:7:2);

   Readln

   End.

   CHÚC BẠN HỌC TỐT!

   Bình luận

2. Program tinh_tong;

   Uses crt;

   Var i,n: integer;

           S: real;

   Begin

   Write (‘Nhap n=’); 

   Readln (n);

   S:=0;

   For i:= 1 to n do 

   S:= S+ 1/(2*i);

   Writeln (‘Tong S la:’, S:7:2);

   Readln

   End.

   Bình luận