Viết chương trình sử dụng for – do hoặc while-..do để tính tổng S= 1+2+3+-.+2020 Với n được nhập từ bàn phím

0 bình luận về “Viết chương trình sử dụng for – do hoặc while-..do để tính tổng S= 1+2+3+-.+2020 Với n được nhập từ bàn phím”

1. Program    tinhtong;

   Uses       Crt;

   Var        n, i, tổng:integer;

   Begin

   clrscr;

   Write( ‘ Nhập số n là:= ‘); readln(n);

   Tổng:=0;

   For i:=1 to 2020 do

   Tổng:=tổng+i;

   Writeln(‘ Kết quả là:=’,tổng);

   Readln;

   End.

   Bình luận

2. Chương trình tính tổng từ 1+2+3+…+2020 là :

   Program Tinh_tong;

   Uses crt;

   Var i,N,t : integer;

   begin

   clrscr;

   t:=0 ;

   write (‘Nhap N =’); readln (N);

   for i:= 1 to N do t:=t+i;

   Writeln(‘tong tu 1 đến ‘,N,’là ‘,t);

   readln ;

   end. 

   /Khi màn hình đen xuất hiện thì ta nhập 2020 vào rồi ấn enter màn hình sẽ ra kết quả  /

   Bình luận