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ì dừng lại. Giải nhanh giúp em

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ì dừng lại. Giải nhanh giúp em”

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;
   end;

   readln;
   end.

   Bình luận

2. Program tinh_tong;

   Uses crt;

   Var S,n: integer;

   Begin

   clrscr;

   S:=0;

   n:=1;

   While(S<=100) do

        Begin

            S:=S+n;

            n:=n+1;

        End;

   Writeln(‘ Tong la: ‘,S);

   Readln

   End.

   Bình luận