Viết chương trình tính tổng các số tự nhiên đầu tiên sao cho tổng đó nhỏ nhất và lớn hơn 100. Giải nhanh giùm em nhờ ạ

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 sao cho tổng đó nhỏ nhất và lớn hơn 100. Giải nhanh giùm em nhờ ạ”

1. program chuc_ban_hoc_tot;
   uses crt;
   var i,tong:integer;
   begin
   clrscr;
   tong:=0;i:=0;

   while tong>=100 do
   begin
   i:=i+1;
   tong:=tong+i;
   end;

   readln;
   end.

    

   Bình luận