tính tổng từ 1-n , sử dụng vòng lặp While – do , n nhập từ bàn phím. <3 TIN HỌC 8

0 bình luận về “tính tổng từ 1-n , sử dụng vòng lặp While – do , n nhập từ bàn phím. <3 TIN HỌC 8”

1. program tong_n;

   uses crt;

   var n,i,t:integer;

   begin

          clrscr;

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

          t:=0;  i:=1;

          while i<=n do

                 begin

                        t:=t+i;

                        i:=i+1;

                 end;

          write(‘Tong cac so tu 1 den ‘,n,’ la: ‘,t);

          readln;

   end.

   Bình luận

2. Sử dụng While…do

   Program tinhtong;

   var n,t : integer;

   s : real;

   begin

   write(‘Nhập số n’);readln(n);

   s:=0; t:=1;

   While t <= n do

   begin t:=t+1;

   s:=s+1/t end ;

   writeln(‘Tổng s là’,s);

   readln

   end.

   Ctlhn nha

   Bình luận