[Юрис 2009]

Дано натуральное n. Вычислить: y = 1 * 3 * 5x...

[AleD]

Сообщение от Юрис 2009

Дано натуральное n. Вычислить: y = 1 * 3 * 5x...

Нужна геометрическая прогрессия? тогда вот код:

Код:

...
var
  i,n,res: Integer;
begin
  n := 10;
  res := 1;
  for i:=1 to n{твоё N число}do
  begin
    res := res * i;
  end;
  ShowMessage('N='+IntToStr(n)+#13+'Результат='+IntToStr(res));
...

или я неправильно понял?