0
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
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]
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin