Цитата:
|
Сообщение от Юрис 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));
...
или я неправильно понял? |