Программы в Pascal

[mix100186]

Программы в Pascal

Здравствуйте, помогите пожалуйста.....
Напишите программу, запрашивающую с клавиатуры натуральное число n и печатающую число n, где n=1*3*5...* n для нечетного n и n=2*4*5*...* для четного.

 

[Vladimir_S]

Здравствуйте, помогите пожалуйста.....
Напишите программу, запрашивающую с клавиатуры натуральное число n и печатающую число n, где n=1*3*5...* n для нечетного n и n=2*4*5*...* для четного.

Да пожалуйста...

Var
 n,i:Word;
 Q:Real;
Begin
 Write('n= ');
 Readln(n);
 Q:=1;
 If (n mod 2)=0 then
  for i:=1 to (n div 2) do Q:=Q*i*2
 else
  for i:=1 to (n div 2) do Q:=Q*(2*i+1);
 Writeln('Result: ',Q:0:0);
 Readln
End.

 

[mix100186]

спасибо большое