Viết chương trình tính tổng của 100 số tự nhiên đầu tiên bằng vòng while và for ( giải thích câu lệnh) 23/07/2021 Bởi Julia Viết chương trình tính tổng của 100 số tự nhiên đầu tiên bằng vòng while và for ( giải thích câu lệnh)
program phuongt; [khai báo tên chương trình] uses crt; [khai báo thư viện] var i, s: integer; [khai báo biến] begin [bắt đầu chương trình] clrscr; [xóa màn hình] s:=0; i:=1; [gán s = 1; gán i = 1] while i<=100 do [nếu i ≤ 100 thì thực hiện vòng lặp] begin [bắt đầu vòng lặp] s:=s+i; [gán s = s+i] i:=i+1; [gán i = i+1] end; [kết thúc vòng lặp] write(‘Tong S = ‘, s); [in giá trị tổng s ra ngoài màn hình] readln [thông báo kết quả ra màn hình] end. [kết thúc chương trình] Bình luận
program phuongt; [khai báo tên chương trình]
uses crt; [khai báo thư viện]
var i, s: integer; [khai báo biến]
begin [bắt đầu chương trình]
clrscr; [xóa màn hình]
s:=0; i:=1; [gán s = 1; gán i = 1]
while i<=100 do [nếu i ≤ 100 thì thực hiện vòng lặp]
begin [bắt đầu vòng lặp]
s:=s+i; [gán s = s+i]
i:=i+1; [gán i = i+1]
end; [kết thúc vòng lặp]
write(‘Tong S = ‘, s); [in giá trị tổng s ra ngoài màn hình]
readln [thông báo kết quả ra màn hình]
end. [kết thúc chương trình]