Написать двойной факториал Pascal. Дано натуральное чилсо N. Вычислить n.

135 ... n, n - нечетн

246 ... n, n - четн

Question

Информатика

Погос

29 июня, 23:09

Написать двойной факториал Pascal. Дано натуральное чилсо N. Вычислить n.

135 ... n, n - нечетн

246 ... n, n - четн

+4

Ответы (1)

Знаете ответ на вопрос?

Зает · Answer 1

Program z;

var n, p, i:integer;

begin

write ('n=') ;

readln (n) ;

p:=1;

if n mod 2=1 then i:=1 else i:=2;

while i<=n do

begin

p:=p*i;

i:=i+2;

end;

writeln (n,'!=', p) ;

end.

Написать двойной факториал Pascal. Дано натуральное чилсо N. Вычислить n.1*3*5 ... n, n - нечетн2*4*6 ... n, n - четн

Написать двойной факториал Pascal. Дано натуральное чилсо N. Вычислить n.

135 ... n, n - нечетн

246 ... n, n - четн