Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Ph Anh

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

Phía sau một cô gái
9 tháng 3 2023 lúc 21:41

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.

 


Các câu hỏi tương tự
Không Muốn Ghi Tên
Xem chi tiết
27. Nguyễn Mạnh Quyết 8A...
Xem chi tiết
huyokkkkk
Xem chi tiết
Vũ Duy Hoàng
Xem chi tiết
hoi lam gi
Xem chi tiết
Trí Cao
Xem chi tiết
nguyễn tiến thành
Xem chi tiết
Yến Hải
Xem chi tiết
Thảo Nguyễn
Xem chi tiết