Question

tính tổng 100 số tự nhiên đầu tiên bằng vòng lặp for do và while do

Answer 1

Chương trình bằng vòng lặp for do

program tong100sotunhien;

var

     i, s: integer;

begin

     s := 0;

     for i := 1 to 100 do

     begin

          s := s + i;

     end;

     writeln('Tong cua 100 so tu nhien dau tien la: ', s);

     readln;

end.

Chương trình bằng vòng lặp while do

program tong100sotunhien;

var

     i, s: integer;

begin

     s := 0;

     i := 1;

     while i <= 100 do

     begin

          s := s + i;

          i := i + 1;

     end;

     writeln('Tong cua 100 so tu nhien dau tien la: ', s);

     readln;

end.