Вопрос Помогите пожалуйста написать программу для паскаль абц

hj123 · 18 Апр 2016

, но при помощи не слишком сложных операций. "Пусть n - натуральное число и пусть n!! означает
1*3*5*...*n для нечетного n и 2*4*...*n для четного n.
Вычислить n!!" n!! -факториал. Т. е. нужно ввести натурально число (например 5), а программа должна посчитать произведение нечетных чисел (1*3*5=15)

Серега1996 · 18 Апр 2016

var n,i,p: integer; begin p:=1; readln

; if n mod 2=0 then i:=2 else i:=1; while i<=n do begin p:=p*i; inc(i,2) end; writeln(p) end.

feik · 18 Апр 2016

p:=1; i:=1; while i<=n do begin i:=i+2; p:=p*i end;

paxa908 · 18 Апр 2016

Умножать проще со старших элементов: result := 1; while n > 1 do begin result := result*n; n := n - 2; end;

Вопрос Помогите пожалуйста написать программу для паскаль абц

hj123

Серега1996

feik

paxa908

Похожие темы