Предмет: Информатика,
автор: 1234567890198
Написать программу в паскале вычисляющую (2·n)! при n>0
Ответы
Автор ответа:
1
var n:integer;
function factorial(x:integer):longint;
begin
if x = 1 then factorial:= 1 else factorial:= x * factorial (x-1);
end;
begin
readln(n);
if n > 0 then
writeln('(',n,'*2)! = ', factorial(n*2));
end.
Похожие вопросы
Предмет: Французский язык,
автор: dinoslija
Предмет: Математика,
автор: tatjanamicane
Предмет: Литература,
автор: Русик200611
Предмет: Математика,
автор: yadayn47