Технический форум - Программы в Pascal

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Программы в Pascal (http://www.tehnari.ru/f43/t88591/)

Программы в Pascal

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

Цитата:

Сообщение от mix100186 (Сообщение 912051)

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

Код:

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.

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