Viết chương trình tính tích 10 số tự nhiên đầu tiên bằng vòng lặp for và while ( giải thích rõ từng câu lện
Viết chương trình tính tích 10 số tự nhiên đầu tiên bằng vòng lặp for và while ( giải thích rõ từng câu lện
By Quinn
By Quinn
Viết chương trình tính tích 10 số tự nhiên đầu tiên bằng vòng lặp for và while ( giải thích rõ từng câu lện
program phuongt; [khai báo tên chương trình]
uses crt; [khai báo tên 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:=1; [gán s bằng 1]
i:=1; [gán i bằng 1]
while i<=10 do [nếu i ≤ 10]
begin [bắt đầu câu lệnh]
s:=s*i; [gán s bằng s*i]
i:=i+1; [tăng giá trị i lên 1 đơn vị]
end; [kết thúc câu lệnh]
write(‘S theo while…do: ‘, s); [in kết quả s ra màn hình theo lệnh while…do]
for i:=1 to 10 do s:=s*i; [chạy i từ 1 đến 10 và làm gán s bằng s*i]
write(‘S theo for…do: ‘, s); [in kết quả s ra màn hình theo lệnh for…do]
readln [in kết quả ra màn hình]
end. [kết thúc chương trình]