pham thanh

Viết chương trình tính tích: S = 1 * 2 * 3 * ... * n với n là số tự nhiên được nhập từ bàn phím. 

Minh Lệ
7 tháng 5 2023 lúc 22:30

Program HOC24;

var s: longint;

i,n: integer;

begin

write('Nhap n: '); readln(n);

s:=1;

for i:=1 to n do s:=s*i;

write('S = ',s);

readln

end.


Các câu hỏi tương tự
Nguyễn Huy Bảo Thạch
Xem chi tiết
Hồng Ánh Nguyễn
Xem chi tiết
Nguyễn Thuận
Xem chi tiết
NGUYỄN LÊ XUÂN THỊNH
Xem chi tiết
Kim Thoa Le Thi
Xem chi tiết
Nguyễn Văn Hồng
Xem chi tiết
level max
Xem chi tiết
Trường Nguyễn
Xem chi tiết
foxbi
Xem chi tiết