Tin học pascal: cấu trúc lặp

Lê Thị Hàn

Học sinh
Thành viên
10 Tháng năm 2018
105
13
36
22
Thái Nguyên
THPT Chuyên Thái Nguyên

Tiểu Linh Hàn

Học sinh chăm học
Thành viên
15 Tháng hai 2016
614
327
126
Bắc Giang
THCS Trần Hưng Đạo
Mã:
var i, : integer;
p: longint;
begin
p := 1;
readln(n);
for i := 2 to n do
p := p * i;
writeln(p);
end.
Code như thế này nè chị :)
 
Top Bottom