Цитата:
Сообщение от mix100186
Здравствуйте, помогите пожалуйста.....
Напишите программу, запрашивающую с клавиатуры натуральное число 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.