Консультация № 138908
01.06.2008, 11:43
0.00 руб.
0 1 1
Уважаемые эксперты помогите пожалуйста решить задачу! Вычислить функцию y=n!

Обсуждение

Неизвестный
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.
Форма ответа