01.06.2008, 11:58
общий
это ответ
Здравствуйте, Щербаков Евгений Николаевич!
сама функция вот:
function factorial(a:integer):longint;
var
i,s:longint;
begin
s:=1;
for i:=1 to a do s:=s*i;
factorial:=s;
end;
Пример ее использования в приложении
Приложение:
program www;vark:integer;function factorial(a:integer):longint;vari,s:longint;begins:=1;for i:=1 to a do s:=s*i;factorial:=s;end;beginwrite(‘i=‘);readln(k);writeln(‘factorial=‘,factorial(k));readln;end.