Sử dụng ngôn ngữ lập trình Pascal viết chương trình tính tổng T với n được nhập từ bàn phím dùng lệnh while …do t = 1/2 + 2/3 + 3/4 +-+n/n+1

0 bình luận về “Sử dụng ngôn ngữ lập trình Pascal viết chương trình tính tổng T với n được nhập từ bàn phím dùng lệnh while …do t = 1/2 + 2/3 + 3/4 +-+n/n+1”

1. program tinh_tong;

   uses crt;

   var n,i:integer;

         t:real;

   begin

         clrscr;

         write(‘Nhap n: ‘);  readln(n);

         t:=0;  i:=1;

         while i<=n do

               begin

                     t:=t+i/(i+1)

                     i:=i+1;

               end;

         write(‘Tong la: ‘,t:0:2);

         readln;

   end.

   Bình luận