Tính tổng các số nguyên từ 100 đến 1000 sử dụng vòng lặp với số lần chưa biết trước. Mn giúp mình vs ạ.

0 bình luận về “Tính tổng các số nguyên từ 100 đến 1000 sử dụng vòng lặp với số lần chưa biết trước. Mn giúp mình vs ạ.”

1. program ct;

   uses crt;

   var S,i:integer;

   begin

   clrscr;

     S:=0; i:=100;

      while i<1000 do

   begin

     i:=i+1;

     S:=S+i;

   end;

     writeln(‘tong la:’,S);

   readln

   end.

   Bình luận

2. program to_lam_ko_biet_dung_hay_sai;

   uses crt;

   var i,s:integer;

   begin

   clrscr;

   i:=100;s:=0

   while i <= 1000 do

   begin

   s:=s+i;

   i:=i+1;

   end;

   write(‘tong gia tri la’,’ ‘,s);

   readln;

   end.

   Bình luận