viết chương trình tính tổng 1+2+3+…+120 với câu lệnh while do

0 bình luận về “viết chương trình tính tổng 1+2+3+…+120 với câu lệnh while do”

1. uses crt;
   var s,i:integer;
   begin
      clrscr;
      while i<=120 do
      begin
         s:=s+i;
         inc(i);
      end;
      write(‘Tong la: ‘,s);
      readln
   end.

   Bình luận

2. program oken;
   uses crt;
   var i,s: integer;
   begin
           clrscr;
           i:=1;
           while i<=120 do
                   begin
                           s:=s+i;
                           i:=i+1;
                   end;
           writeln(‘Tong cac so tu 1->120: ‘,s);
           readln;
   end.

   Bình luận