Отправляет email-рассылки с помощью сервиса Sendsay

Программирование на Visual Basic, VB .NET и VBA

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Виртуальный офис - дома" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Декабрь 2009   →
 1
01.12.2009
06:38:04
09:30:22
 2
02.12.2009
08:12:28
09:30:20
 3
03.12.2009
07:33:51
09:30:37
 4
04.12.2009
05:59:33
08:30:28
 5
 6
 7
07.12.2009
08:30:26
10:34:07
 8
08.12.2009
09:33:04
10:15:14
 9
09.12.2009
08:36:08
12:53:35
10
10.12.2009
05:19:28
08:30:24
11
11.12.2009
08:32:49
09:32:39
12
13
14
14.12.2009
06:39:46
09:31:03
15
15.12.2009
09:32:16
10:34:38
16
16.12.2009
06:43:54
09:31:57
17
17.12.2009
09:10:37
09:33:14
18
18.12.2009
07:42:01
08:30:26
19
20
21
21.12.2009
08:25:35
09:32:16
22
22.12.2009
05:43:09
08:33:16
23
24
25
26
27
28
29
30
31
Автор
BiT

Статистика

0 подписчиков
0 за неделю
←   Все выпуски   →

Вычислить 1/(2k+1)^2, где k принимает значения от 1 до n


Вычислить 1/(2k+1)^2, где k принимает значения от 1 до n
2009-12-04 07:00 Александр
Вычислить 1/(2k+1)^2, где k принимает значения от 1 до n. Private Sub Command1_Click() Dim k, n As Integer Dim sRes As String On Error GoTo boroda sRes = InputBox("Input N") n = CInt(sRes) For k = 1 To n Print CStr(1 / (2 * k + 1) ^ 2) Next Exit Sub boroda: MsgBox "плохо введено значение" End Sub

В избранное