• Lenguaje

    Pascal

  • Descripción

    Se desea conocer una serie de datos de una empresa con 50 empleados:
    1. ¿Cuántos empleados ganan más de $300.000 al mes?
    2. ¿Cuántos empleados ganan entre $100.000 y $300.000 al mes?
    3. ¿Cuántos empleados ganan menos de $100.000 al mes.

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
34
program GanaciasDe50Empleados;
uses crt;

var i, resultado_1, resultado_2, resultado_3 : integer;
var salario : real;
begin
    resultado_1 := 0;
    resultado_2 := 0;
    resultado_3 := 0;
    for i:=1 to 50 do
    begin
        writeln ('PROCESO ', i);
        write ('Ingresa el valor de salario: ');
        readln (salario);
        if salario>300000 then
            begin
                resultado_1 := resultado_1+1;
            end;
        if (salario=>100000) and (salario<=300000) then
            begin
                resultado_2 := resultado_2+1;
            end;
        if salario<100000 then
            begin
                resultado_3 := resultado_3+1;
            end;
        writeln;
    end;
    writeln ('Valor de resultado 1: ', resultado_1);
    writeln ('Valor de resultado 2: ', resultado_2);
    writeln ('Valor de resultado 3: ', resultado_3);
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.