Цитата:
|
Сообщение от Юрис 2009
Дано натуральное n. Вычислить: y = 1 * 3 * 5x...
|
Нужна геометрическая прогрессия? тогда вот код:
Код:
1 2 3 4 5 6 7 8 9 10 11 12 | ...
var
i,n,res: Integer;
begin
n := 10;
res := 1;
for i:=1 to ndo
begin
res := res * i;
end;
ShowMessage('N='+IntToStr(n)+#13+'Результат='+IntToStr(res));
...
|
или я неправильно понял? |
24.04.2009, 07:34
Delphi 7. Циклы.
Линейный вид
