Viết chương trình tính tổng các số tự nhiên đầu tiên cho đến khi tổng đó bằng 100 thì ngừng lại

0 bình luận về “Viết chương trình tính tổng các số tự nhiên đầu tiên cho đến khi tổng đó bằng 100 thì ngừng lại”

1. program ct;

   uses crt;

   var S,i:integer;

   begin

   clrscr;

        S:=0;  i:=0;

      while S<=100 do

   begin

      i:=i+1;

      S:=S+i;

   end;

   writeln(‘tong la:’,S);

   readln

   end.

   Bình luận

2. program tinh_tong;
   uses crt;
   var Tongcacso,i:integer;
   begin
   clrscr;
   Tongcacso:=0;i:=0;

   while Tongcacso<=100 do
   begin 
   i:=i+1;
   Tongcacso:=Tongcacso+i;
   end;

   readln;
   end.

   Bạn tham khảo nhé!

   Bình luận