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

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

1. program

   ctdt;

   uses crt;

   var i,tong:integer;

   begin clrscr;

   tong:=0;i:=0;

   while tong<=100 do

   begin i:=i+1;

   tong:=tong+i;

   readln;

   end.

   Bình luận

2. program

   clrsct;

   uses;

   var i,tong:integer;

   begin

   tong:=0;i:=0;

   while tong $\leq$ 100 do

   begin i:=i+1;

   tong:=tong+i;

   readln;

   end.

   Bình luận