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]
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]
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]
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?
5289
3329
\begin{array}{c} \color{#db1616}{\texttt{#Khoadang09}} \end{array}
*For ... do :
var p : real ; // khai báo p kiểu số thực để có phạm vi lớn
i : byte ; // khai báo i để chạy từ 1 đến 10 để tính tích
begin
p := 1 ; // gán p = 1 vì nếu không gán, mặc định p = 0
// mọi số nhân với 0 bằng 0
for i := 1 to 10 do p := p * i ;
// lặp từ 1 đến 10, mỗi lần lặp nhân i với p
// -> p = 1 * 2 * 3 * 4 * 5 * 6 * 7 * 8 * 9 * 10
write(p:0:0);// :0:0 để làm tròn về số nguyên
// in ra kết quả
end .
*While ... do :
var p : real ; // khai báo p kiểu số thực để có phạm vi lớn
i : byte ; // khai báo i để chạy từ 1 đến 10 để tính tích
begin
p := 1 ; // gán p = 1 vì nếu không gán, mặc định p = 0
// mọi số nhân với 0 bằng 0
i := 1 ;
while i <= 10 do // điều kiện vòng lặp
begin // bắt đầu câu lệnh ghép
p := p * i ; // tính p bằng p * i
i := i + 1 ; // tăng i lên 1 đơn vị
end ;// kết thúc câu lệnh ghép
write(p:0:0);// :0:0 để làm tròn về số nguyên
// in ra kết quả
end .
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin