language: VB.NET (mono-2.4.2.3)
date: 98 days 0 hours ago
link:
visibility: public 
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(vencimento_mensal * 14, 1).ToString("#0.0").Replace(",", "."))
 
        ' 2011
        If vencimento_mensal > 485 Then
            Console.WriteLine(Math.Round(vencimento_mensal * 13.5, 1).ToString("#0.0").Replace(",", "."))
        Else
            Console.WriteLine(Math.Round(vencimento_mensal * 14, 1).ToString("#0.0").Replace(",", "."))
        End If
 
        ' 2012
        If vencimento_mensal > 1100 Then
            Console.WriteLine(Math.Round(vencimento_mensal * 12, 1).ToString("#0.0").Replace(",", "."))
        ElseIf vencimento_mensal <= 600 Then
            Console.WriteLine(Math.Round(vencimento_mensal * 14, 1).ToString("#0.0").Replace(",", "."))
        Else
            Console.WriteLine(Math.Round(vencimento_mensal * 14 - (1320 - 1.2 * vencimento_mensal) * 2, 1).ToString("#0.0").Replace(",", "."))
        End If
 
        'Console.ReadLine()
    End Sub
End Class