HN

Viết chương trình pascal cho nhập vào số nguyên dương n. Tính n! (n!=1.2.3.....n).

H9
7 tháng 3 2023 lúc 15:51

Uses crt;

var i,n,x: integer;

begin clrscr;

readln(n);

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

writeln(x);

readln;

end.

Bình luận (0)
ML
7 tháng 3 2023 lúc 17:05

Program HOC24;

var i,n: integer;

s: longint;

begin

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

s:=1;

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

write(n,'! = ',s);

readln

end.

Bình luận (0)

Các câu hỏi tương tự
HN
Xem chi tiết
H24
Xem chi tiết
TN
Xem chi tiết
H24
Xem chi tiết
PK
Xem chi tiết
H24
Xem chi tiết
DM
Xem chi tiết
BD
Xem chi tiết
PL
Xem chi tiết