Question

по заданному целому неотрицательному значению n вычислить n!=1*2*3*... n. Учтите, что по определению 0!=1.

Answer 1

uses crt;

var

       int n,fact,i;

begin

clrscr;

writeLn("Enter size array:");

read(n);

if (n>1)

for i:= 1 to n do

fact:=fact*i;

else

fact:=1;

writeln;

write("Fact=",fact);

readkey;

end.