Question

Помогите пожалуйста решить через Паскаль s=1*2*3...*n

Answer 1

var n,i: integer;

s: real;

begin

s:=1;

readln(n);

for i:=2 to n do s:=s*i;

write(s);

end.