Sử dụng câu lệnh for…do để tính tổng các số tự nhiên từ 1 đến 100

0 bình luận về “Sử dụng câu lệnh for…do để tính tổng các số tự nhiên từ 1 đến 100”

1. Program dreamcraft375;

   uses crt;

   var i,t:integer;

   begin

   clrscr;

   t:=0;

   for i:=1 to 100 do

   t:=t+i;

   writeln(‘Tong cac so tu nhien tu 1 toi 100 la: ‘,t);

   readln;

   end.

   Bình luận

2. Program Tinh_Tong;

   Uses crt;

   Var S, i :Integer;

   Begin

   Clrscr;

   S :=0;

   For i:=1 to 100 do S :=S+ i;

   Write(‘Tong cac so tu 1 den 100 la : ‘,S);

   Readln;

   End.

   Bình luận