Sử dụng vòng lặp for…do hoặc while…do để viết chương trình tính tổng S = 1+2+3+…+2020

0 bình luận về “Sử dụng vòng lặp for…do hoặc while…do để viết chương trình tính tổng S = 1+2+3+…+2020”

1. program tinhtong;

   uses crt;

   var i:integer;

        s:longint;

   begin

          clrscr;

          s:=0;

          for i:=1 to 2020 do

                 s:=s+i;

          write(‘S= ‘,s);

          readln;

   end.

   Bình luận

2. uses crt;

   var  i,s: integer;

   begin

   clrscr;

   for i:=1 to 2020 do

   s:=s+i;

   writeln (‘tong la: ‘,s);

   readln;

   end.

   Bình luận