Bài 5: Nhập vào số nguyên n,viết chương trình tính n!
n!=1*2*3…*n
Bài 5: Nhập vào số nguyên n,viết chương trình tính n! n!=1*2*3…*n
By Isabelle
By Isabelle
Bài 5: Nhập vào số nguyên n,viết chương trình tính n!
n!=1*2*3…*n
program phuongt;
uses crt;
var n, s: integer;
begin
clrscr;
write(‘Nhap n = ‘); readln(n);
for i:=1 to n do s:=s*i;
write(‘n! = ‘, s);
readln
end.
program giaithua;
uses crt;
var n:byte;
gt:real;
begin
clrscr;
write(‘Nhap so n: ‘); readln(n);
gt:=1;
for i:=2 to n do
gt:=gt*i;
write(n!= ‘,gt:3:0);
readln
end.