• Lenguaje

    Pascal

  • Descripción

    Una empresa desea determinar el sueldo a pagar por 3 empleados, de los que se conoce lo siguiente: el empleado 1 trabajo un mes, el empleado 2 trabajo medio mes y el empleado 3 trabajo una semana.
    Se paga por día 20 nuevos soles. Dato: mes = 24 días.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program SueldoDe3Empleados;
uses crt;

var dia, mes, sueldo_del_empleado_1, sueldo_del_empleado_2, sueldo_del_empleado_3 : real;
begin
    mes := 24;
    dia := 20;
    sueldo_del_empleado_1 := mes*dia;
    sueldo_del_empleado_2 := mes/2*dia;
    sueldo_del_empleado_3 := 3*7*dia;
    writeln ('Valor de dia: ', dia:0:6);
    writeln ('Valor de mes: ', mes:0:6);
    writeln ('Valor de sueldo del empleado 1: ', sueldo_del_empleado_1:0:6);
    writeln ('Valor de sueldo del empleado 2: ', sueldo_del_empleado_2:0:6);
    writeln ('Valor de sueldo del empleado 3: ', sueldo_del_empleado_3:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.