1. .
2. .
3. .
4. .
5. .
6. .
7. .
8. .
9. .
10. .
11. -.
12. - .
13. .
14. .
15. MS Excel.
16. MS Excel.
17. MS Excel (, , , , , ..).
18. MS Excel ( , , ..).
19. Windows .
20. MS Word (, , , , ..).
21. MS Excel.
22. MS Excel c MS Word .
23. - MS Excel.
24. MS Excel.
25. MS Excel.
26. MS PowerPoint.
27. MS Word.
28. MS Word.
29. Selection MS Word.
30. Range MS Word.
.
.
.
.
:
c
sum c
st , n-1
|
|
:
n- . n- 8 n-1.
Length() , -
.
Module Module1
Sub Main()
Dim c As String
Dim a(100), sum, st As Integer
c = Console.ReadLine()
st = 1
For i = 1 To c.Length
st = st * 8
Next
For i = 0 To c.Length - 1
a(i) = Val(c(i))
Next
For i = 0 To c.Length - 1
st = st / 8
sum = sum + a(i) * st
Next
Console.WriteLine(sum)
Console.ReadKey()
End Sub
End Module
- .