помогите:
вопрос вот в чем - можно ли увеличить шаг for'а с одного до 2?
что бы получилась такая строчка 2*4*6*8*... или 1*3*5*7*9*...
//Проверка на четность
if n mod 2 = 0 then
begin
if n = 2 then d := 2
else
begin
d := 1;
repeat
d := d * n;
n := n - 2;
until n = 0;
end;
end;
//Проверка на нечетность
if n mod 2 <> 0 then
begin
if n = 1 then d := 1
else
begin
d := 1;
repeat
d := d * n;
n := n - 2;
until n = 1;
d := d*2
end;
end;
! | Теги надо ставить.... мисс_граффити |
d := 1;
repeat
d := d * n;
n := n - 2;
until n <= 0;