1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | Imports System Public Class B Public Shared Sub Main() Dim vencimento_mensal As Double vencimento_mensal = Console.ReadLine().Replace(".", ",") 'Console.WriteLine(Math.Round(CDec(vencimento_mensal) * 13.5, 1)) 'Console.ReadLine() 'End ' 2010 Console.WriteLine(Math.Round(Val(vencimento_mensal) * 14, 1).ToString("#0.0").Replace(",", ".")) ' 2011 If vencimento_mensal > 485 Then Console.WriteLine(Math.Round(Val(vencimento_mensal) * 13.5, 1).ToString("#0.0").Replace(",", ".")) Else Console.WriteLine(Math.Round(Val(vencimento_mensal) * 14, 1).ToString("#0.0").Replace(",", ".")) End If ' 2012 If vencimento_mensal > 1100 Then Console.WriteLine(Math.Round(Val(vencimento_mensal) * 12, 1).ToString("#0.0").Replace(",", ".")) ElseIf vencimento_mensal <= 600 Then Console.WriteLine(Math.Round(Val(vencimento_mensal) * 14, 1).ToString("#0.0").Replace(",", ".")) Else Console.WriteLine(Math.Round(Val(vencimento_mensal) * 14 - (1320 - 1.2 * Val(vencimento_mensal)) * 2, 1).ToString("#0.0").Replace(",", ".")) End If 'Console.ReadLine() End Sub End Class |
SW1wb3J0cyBTeXN0ZW0KUHVibGljIENsYXNzIEIKICAgIFB1YmxpYyBTaGFyZWQgU3ViIE1haW4oKQogICAgICAgIERpbSB2ZW5jaW1lbnRvX21lbnNhbCBBcyBEb3VibGUKICAgICAgICB2ZW5jaW1lbnRvX21lbnNhbCA9IENvbnNvbGUuUmVhZExpbmUoKS5SZXBsYWNlKCIuIiwgIiwiKQoKCiAgICAgICAgJ0NvbnNvbGUuV3JpdGVMaW5lKE1hdGguUm91bmQoQ0RlYyh2ZW5jaW1lbnRvX21lbnNhbCkgKiAxMy41LCAxKSkKICAgICAgICAnQ29uc29sZS5SZWFkTGluZSgpCiAgICAgICAgJ0VuZAoKICAgICAgICAnIDIwMTAKICAgICAgICBDb25zb2xlLldyaXRlTGluZShNYXRoLlJvdW5kKFZhbCh2ZW5jaW1lbnRvX21lbnNhbCkgKiAxNCwgMSkuVG9TdHJpbmcoIiMwLjAiKS5SZXBsYWNlKCIsIiwgIi4iKSkKCiAgICAgICAgJyAyMDExCiAgICAgICAgSWYgdmVuY2ltZW50b19tZW5zYWwgPiA0ODUgVGhlbgogICAgICAgICAgICBDb25zb2xlLldyaXRlTGluZShNYXRoLlJvdW5kKFZhbCh2ZW5jaW1lbnRvX21lbnNhbCkgKiAxMy41LCAxKS5Ub1N0cmluZygiIzAuMCIpLlJlcGxhY2UoIiwiLCAiLiIpKQogICAgICAgIEVsc2UKICAgICAgICAgICAgQ29uc29sZS5Xcml0ZUxpbmUoTWF0aC5Sb3VuZChWYWwodmVuY2ltZW50b19tZW5zYWwpICogMTQsIDEpLlRvU3RyaW5nKCIjMC4wIikuUmVwbGFjZSgiLCIsICIuIikpCiAgICAgICAgRW5kIElmCgogICAgICAgICcgMjAxMgogICAgICAgIElmIHZlbmNpbWVudG9fbWVuc2FsID4gMTEwMCBUaGVuCiAgICAgICAgICAgIENvbnNvbGUuV3JpdGVMaW5lKE1hdGguUm91bmQoVmFsKHZlbmNpbWVudG9fbWVuc2FsKSAqIDEyLCAxKS5Ub1N0cmluZygiIzAuMCIpLlJlcGxhY2UoIiwiLCAiLiIpKQogICAgICAgIEVsc2VJZiB2ZW5jaW1lbnRvX21lbnNhbCA8PSA2MDAgVGhlbgogICAgICAgICAgICBDb25zb2xlLldyaXRlTGluZShNYXRoLlJvdW5kKFZhbCh2ZW5jaW1lbnRvX21lbnNhbCkgKiAxNCwgMSkuVG9TdHJpbmcoIiMwLjAiKS5SZXBsYWNlKCIsIiwgIi4iKSkKICAgICAgICBFbHNlCiAgICAgICAgICAgIENvbnNvbGUuV3JpdGVMaW5lKE1hdGguUm91bmQoVmFsKHZlbmNpbWVudG9fbWVuc2FsKSAqIDE0IC0gKDEzMjAgLSAxLjIgKiBWYWwodmVuY2ltZW50b19tZW5zYWwpKSAqIDIsIDEpLlRvU3RyaW5nKCIjMC4wIikuUmVwbGFjZSgiLCIsICIuIikpCiAgICAgICAgRW5kIElmCgogICAgICAgICdDb25zb2xlLlJlYWRMaW5lKCkKICAgIEVuZCBTdWIKRW5kIENsYXNz
-
upload with new input
-
result: Runtime error time: 0.1s memory: 36696 kB signal: -1
1500.0
Unhandled Exception: System.ArgumentException: Argument 'Expression' cannot be converted to type 'System.Double'. at Microsoft.VisualBasic.Conversion.Val (System.Object Expression) [0x00000] at B.Main () [0x00000]
-
result: Runtime error time: 0.09s memory: 36632 kB signal: -1
Unhandled Exception: System.NullReferenceException: Object reference not set to an instance of an object at B.Main () [0x00000]



