Как определить количество страниц в книге, если известна сумма его страниц? - Visual Basic .NET
Формулировка задачи:
Привет друзья.
Не получается решать одну задачу. Как определить количество стр в книге, когда суммы его страницы известно.
условия такая:
1+2+3+4+5+6+7+8+9=45
10=1+0=1
11=1+1=2
12=1+2=3
13=1+3=4
14=1+4=5
15=1+5=6
45+21=66
то есть итог 66.
Вот у меня код: которые через количество стр находить его сумму мне надо чтобы через суммы его стр нашёл количество страниц.
Листинг программы
- Dim summa As Integer = 0
- Dim i As Integer
- Dim k, k2, k3, k4 As Integer
- Dim n As Integer = 15
- For i = 1 To n
- ListBox1.Items.Add(i)
- If i <= 9 Then
- summa = summa + i
- End If
- If i > 9 And i < 99 Then
- k = Mid(i, 1, 1)
- k2 = Mid(i, 2, 1)
- k3 = k + k2
- summa = summa + k3
- End If
- If i > 99 Then
- k = Mid(i, 1, 1)
- k2 = Mid(i, 2, 1)
- k3 = Mid(i, 3, 1)
- k4 = k + k2 + k3
- summa = summa + k4
- End If
- TextBox1.Text = summa
- Next
Решение задачи: «Как определить количество страниц в книге, если известна сумма его страниц?»
textual
Листинг программы
- Dim i, j As Integer, n As Long
- n = 66 ' сумма
- i = 0 ' номер строки
- While n > 0
- i = i + 1
- For j = 1 To i.ToString.Length
- n = n - Mid(i, j, 1)
- Next
- End While
- If n = 0 Then
- MsgBox(i)
- Else
- MsgBox("Строка отсутствует", MsgBoxStyle.Critical)
- End If
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
