Двойной факториал - Turbo Pascal (33560)

Формулировка задачи:

N!! = N*(N–2)*(N–4)*… (N > 0 — параметр целого типа; последний сомножитель в произведении равен 2, если N — четное число, и 1, если N — нечетное). С помощью этой функции вычислить двойные факториалы пяти данных чисел.

Код к задаче: «Двойной факториал - Turbo Pascal (33560)»

textual
function secondfactorial(n:integer):integer;
begin 
if n <=1 then secondfactorial:=1
else secondfactorial:=n*n*secondfactorial(n-2);
end;
var k:integer;
begin
read(k);
write (secondfactorial(k));
end.

5   голосов, оценка 3.200 из 5


СОХРАНИТЬ ССЫЛКУ