Question

$\huge \underline \mathtt \red{Question}$
ᴡʀɪᴛᴇ ᴛʜᴇ ᴇᴠᴇɴᴛ ᴘʀᴏᴄᴇᴅᴜʀᴇs ғᴏʀ ᴄᴀʟᴄᴜʟᴀᴛɪɴɢ ᴛʜᴇ ɢʀᴏss sᴀʟᴀʀʏ,ᴡʜɪᴄʜ ɪs ᴛʜᴇ sᴜᴍ ᴏғ ʙᴀsɪᴄ ᴘᴀʏ,ʜʀᴀ(ʜᴏᴜsᴇ ʀᴇɴᴛ ᴀʟʟᴏᴡᴀɴᴄᴇ)ᴀɴᴅ ᴄᴀ (ᴄᴏɴᴠᴇʏᴀɴᴄᴇ ᴀʟʟᴏᴡᴀɴᴄᴇ).

$<font color =green >$
Note:-
▪️No Spam
▪️Spam answers will be deleted.
▪️Need quality answers.
​

Answer 1

$\mathtt{\huge{\underline{\underline{\red{Programme:-}}}}}$

ʜᴏᴜsᴇ ʀᴇɴᴛ ᴀʟʟᴏᴡᴀɴᴄᴇ :-

Module Gross_sal

Sub Main()

Dim bs, da, hr, gs As Integer

Console.Write("Rs.10000:")

bs = CInt(Console.ReadLine())

da = 1 * 60 \ 10000

hr = 1 * 40 \ 10000

gs = 1 - ( 60 \ 10000 + 40 \ 10000)

Console.WriteLine(" 10000=" 6/1000+4/1000 gs.ToString())

Console.ReadLine()

End Sub

End Module

$\mathcal{\huge{\underline{\underline{\</strong><strong>g</strong><strong>r</strong><strong>e</strong><strong>e</strong><strong>n</strong><strong>{</strong><strong>O</strong><strong>u</strong><strong>t</strong><strong>p</strong><strong>u</strong><strong>t</strong><strong>:-}}}}}$

ʜᴏᴜsᴇ ʀᴇɴᴛ ᴀʟʟᴏᴡᴀɴᴄᴇ :-

Value :- 10000

Gross Value = 99 (to neglegible)

_____________________________________

Answer 2

ʜᴏᴜsᴇ ʀᴇɴᴛ ᴀʟʟᴏᴡᴀɴᴄᴇ :-

Module Gross_sal

Sub Main()

Dim bs, da, hr, gs As Integer

Console.Write("Rs.10000:")

bs = CInt(Console.ReadLine())

da = 1 * 60 \ 10000

hr = 1 * 40 \ 10000

gs = 1 - ( 60 \ 10000 + 40 \ 10000)

Console.WriteLine(" 10000=" 6/1000+4/1000 gs.ToString())

Console.ReadLine()

End Sub

End Module

ʜᴏᴜsᴇ ʀᴇɴᴛ ᴀʟʟᴏᴡᴀɴᴄᴇ :-

Value :- 10000

Gross Value = 99 (to neglegible)