Question

Viết chương trình tính giai thừa của một số N bất kì

Answer 1

uses crt;

var S,N,i:longint;

begin

clrscr;

writeln('Nhap so N=');readln(N);

S:=1;

for i:=1 to N do S:=S*N;

writeln('N!=',S);

readln

end.

Answer 2

program Tinh_Giai_Thua;

uses crt;

longint S,N,i:longint;

begin

clrscr;

writeln('Nhap so N=');readln(N);

S:=1;

for i:=1 to N do S:=S*N;

writeln(N,'!=',S);

readln

end.