viết chương trình tính tổng S= 1 + 1/2 +1/3+-.+1/n ( trong đó n được nhập vào từ bàn phím ) Gấppppp

0 bình luận về “viết chương trình tính tổng S= 1 + 1/2 +1/3+-.+1/n ( trong đó n được nhập vào từ bàn phím ) Gấppppp”

1. Program tinhtong;

   uses crt;

   var n,t : integer;

   s : real;

   begin

   clrscr;

   write(‘Nhap so n’);readln(n);

   s:=0;

   t:=1;

   While t <= n do

   begin

   t:=t+1;

   s:=s+1/t;

   end ;

   writeln(‘Tong s là’,s);

   readln;

   end.

   Bình luận

2. CT đây nhé!:

   program tinhtong;

   uses crt;

   var i, n : integer; S : real;

   begin

   clrscr;

   writeln(‘Nhap so thu n: ‘); readln(n);

   S:=0; i:=1;

   while i<=n do begin

   S:=S+1/i; i:=i+1;

   end;

   writeln(‘Tong la: ‘,S:2:3);

   readln

   end.

   Bình luận