|
|
|
Задачка о массиве.
|
|||
|---|---|---|---|
|
#18+
Для натурального n найти y=сумма i= от 1 до n числа i в степени i. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.11.2005, 09:54:11 |
|
||
|
Задачка о массиве.
|
|||
|---|---|---|---|
|
#18+
Поподробнее. Есть массив чисел (числа только натуральные или нет). Найти сумму натуральных чисел в степени индека? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.11.2005, 11:16:14 |
|
||
|
Задачка о массиве.
|
|||
|---|---|---|---|
|
#18+
Dim i As Long Dim N As Long Dim Sum As Long N = InputBox("Введите N", "Ввод N") If IsNumeric(N) = True Then For i = 1 To N Sum = Sum + i ^ i Next i End If Caption = Sum ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.11.2005, 11:40:30 |
|
||
|
Задачка о массиве.
|
|||
|---|---|---|---|
|
#18+
public function s(n as long)as double dim i as double on error goto wrong s=0 i=1 while i<=n s=s+i^i i=i+1 wend wrong: select case err.number case 0 case else msgbox err.description end select end function ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.11.2005, 11:50:03 |
|
||
|
|
start [/forum/topic.php?fid=60&fpage=304&tid=2166811]: |
0ms |
get settings: |
11ms |
get forum list: |
16ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
44ms |
get topic data: |
11ms |
get forum data: |
3ms |
get page messages: |
50ms |
get tp. blocked users: |
2ms |
| others: | 205ms |
| total: | 348ms |
| 0 / 0 |
