• Lenguaje

    Pascal

  • Descripción

    Ingrese las horas trabajadas al mes y la tarifa de cada hora, determine el sueldo a pagar de un trabajador en dicho mes.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program SueldoPorHorasTrabajadas;
uses crt;

var horas_trabajadas, sueldo, tarifa_por_hora : real;
begin
    write ('Ingresa el valor de horas trabajadas: ');
    readln (horas_trabajadas);
    write ('Ingresa el valor de tarifa por hora: ');
    readln (tarifa_por_hora);
    sueldo := horas_trabajadas*tarifa_por_hora;
    writeln ('Valor de sueldo: ', sueldo:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.