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?

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?”

1. Program Hotboy ;

   Uses crt;

   Var S,i : byte;

   Begin

   Clrscr;

   i:=1; S:=0;

   Repeat 

   Inc(i);

   S:=S+i;

   Until S=100;

   Write(‘Da thuc hoen den khi tong bang 100’);

   Readln

   End.

   Bình luận

2. uses crt;

   var s,i: integer;

   begin

   clrscr;

   while s<>100 do begin

   i:=i+1;

   s:=s+i;

   end;

   writeln(‘Tong cac so tu nhien dau tien la:’,s);

   readln;

   end.

   Bình luận