Tính và đưa ra kết quả: S=1+2+3+… cho đến khi S>50 (Dùng while…do)

0 bình luận về “Tính và đưa ra kết quả: S=1+2+3+… cho đến khi S>50 (Dùng while…do)”

1. uses crt;
   var s,i:longint;
   begin
      clrscr;
      i:=0; s:=0;
      while s<=50 do
      begin
         i:=i+1;
         s:=s+i;
      end;
      write(‘Tong day so tren la: ‘,s);
      readln
   end.

   Bình luận

2. Program BTH;
   uses crt;
   var s,i:longint;
   Begin
       clrscr;
       i:=0;
       s:=0;
       While i<50 do
       Begin
           i:=i+1;
           s:=s+i;
       end;
       write(‘Tong day sp tren la: ‘,s);
       readln;
   end.

   Bình luận