// Двойной факториал n!!=n*(n-2)*(n-4)*...*2 (или 1)
begin
 write('Введите x: ');
 var x := ReadInteger;
 
 var p := 1;
 while x>=2 do
 begin
 p *= x;
 x -= 2;
 end;
 
 writeln('Двойной факториал равен ', p);
end.


 Похожие публикации
2015-11-23 • Просмотров [ 348 ]