Points:
100 (p)
Time limit:
1.0s
Memory limit:
256M
Input:
stdin
Output:
stdout
In ra tích các số từ 1 đến \(N\).
Input
- Số nguyên \(N \leq 10\)
Output
- Kết quả bài toán.
Example
Test 1
Input
3
Output
6
Test 2
Input
4
Output
24
Comments
VAr n,i,S:longint;
BEgin
Readln(n);
S:=1;
for i:=1 to n do If i>0 then S:=S*i;Writeln(S);
Readln
End.(pascal)