{ рекурсивные алгоритмы: вычисление факториала }
var n:integer;
function f(x:integer):longint;
begin
if x = 1 then f := 1 else f := x * f(x-1);
end;
begin
writeln('введите N (N=1..13)');
readln(n);
writeln('N!=',f(n));
end.
Красноярский краевой Дворец пионеров, (c)2006 - 2021, E-mail: admin@acmp.ru