задание 4 Урок 21

Дано целое положительное число N, вычислите N! (эн факториал).

задание 4 Урок 21

program U21z4;

function fact(n:integer):integer;
begin
  if n = 1 then
    fact:= 1
  else
    fact:= n*fact(n-1);
end;
begin
  writeln(fact(6));
  readln;

end.    
         
vedro-compota's picture

засчитано

_____________
матфак вгу и остальная классика =)