Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Salario
//fpc 3.0.4 program Salario; var SalarioBase: real; NumHoras: real; SalarioBruto: real; begin {Pedimos l usuario una cadena del estilo "A op B"} writeln('Introduzca el salario base y las horas trabajadas:'); read(SalarioBase); read(NumHoras); if NumHoras <= 35 then SalarioBruto := NumHoras*SalarioBase; else SalarioBruto := SalarioBase*35 + (NumHoras-35)*1.5*SalarioBase; SalarioNeto := 0; if SalarioBruto <= 20000 /54 then SalarioNeto := SalarioBruto; else if SalarioBruto <= 45000/54 then begin SalarioNeto := 20000 /54 + (SalarioBruto-20000/54)*0.8; end else SalarioNeto := 20000 /54 + (25000/54)*0.8 + (SalarioBruto-45000/54)*0.7; end.
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
.heap sort
DI
Md5 hash
reverseandcheck
Program.cs
ZeroMatrix
asxs xscsss
line 1 syntax error
Truncate String by Byte
Fórum ➡ Convert from one format into another using LINQ ( as much as possible ) ♦
Please log in to post a comment.