Sử dụng câu lệnh while…do để tính tổng các số tự nhiên từ 1 đến 100

0 bình luận về “Sử dụng câu lệnh while…do để tính tổng các số tự nhiên từ 1 đến 100”

1. Program Giang;

   Uses crt;

   Var   S, i: integer;

   Begin

           clrscr;

           S : = 0;

           i := 1;

           while i <= 100 do

           begin

                   S := S + i;

                   i := i + 1;

           end;

           writeln (S);

           readln;

   end.

   Bình luận

2. var i: byte;

         S: word;

   Begin

        i:=1; s:=0;

        While i<=100 do

           Begin

                S:=s+i;

                i:=i+1;

           End;

       Write(s);

       Readln

   End.

   Bình luận