1)readln(n);
if (n=0) then writeln(0!=1) else
if (n<0) then writeln(Определяется только для положительных чисел) else
begin
s:=1;
for i:=1 to n do
s:=s*i;
writeln(n,!=s:0:0);
end;
2)function f(x:byte):real;
begin
if x=0 then f:=1
else f:=f(x-1)*x;
end;2
с помощью рекурсии, как видно
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.