Giai thừa #1

Xem PDF
Tất cả bài nộp
Các bài nộp tốt nhất
Dạng bài
Điểm: 100 (p) Thời gian: 1.0s Bộ nhớ: 256M Input: bàn phím Output: màn hình

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

Bình luận


  • 1
    nujomau6    8:14 p.m. 2 Tháng 10, 2024

    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)