: Nhập N từ bàn phím (N>0), tính giai thừa của n (n!)

1 câu trả lời

program oken;

uses crt;

var n,gt,i:int64;

begin

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

gt:=1;

for i:=1 to n do gt:=gt*i;

writeln('N!=',gt);

readln;

end.

Câu hỏi trong lớp Xem thêm