Question

Viết phương trình tính S=1*2*3*4*...*n

Answer 1

ét o ét ! 

Answer 2

bn tham khảo 

var n:longint;
//
function gt(n:longint):int64;
var h:longint;
begin
gt:=1;
for h:=2 to n do gt:=gt*h;
end;
//
begin
read(n);
write(gt(n));
end.

Answer 3

Var i,n,s:integer;

Begin

Write('Nhap n = ');readln(n);

s:=1;

For i:=2 to n do s:=s*i;

Write('S = ',s);

Readln;

End.