Question

Viết chương trình tính n! với n! được định nghĩa như sau:

- n! = 1 với n=0

- n! = 1*2*3*...*n( tích của n số từ 1 đến n)

Answer 1

program giaithua;

var { đa số N sẽ < hoặc = 30 }

s:longint;n,i:byte;

begin

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

s:=1; { nếu s = 0 thì kết quả 100% = 0 }

for i:= 1 to n do

s:= s *i;

write(' ket qua la :',s:5:2);

readln;

end.

Answer 2

Var i,n,t,s:integer;

begin

readln(n);

s:=0;

for i:=1 to n do

for t:=2 to n do s:=i*t;

writeln(s);

readln;

end.