Создать программу на Паскале .номер 3 срочно
Создать программу на Паскале .номер 3 срочно
Гость
Ответ(ы) на вопрос:
Гостьvar n,i:integer; f:longint;
begin
write('n = ');
readln(n);
f:=1;
if n mod 2=0
then for i:=1 to n div 2 do f:=f*(2*i)
else for i:=1 to (n+1) div 2 do f:=f*(2*i-1);
writeln(n,'!! = ',f);
end.
Пример:
n = 8
8!! = 384
Не нашли ответ?
Похожие вопросы