• Lenguaje

    Pascal

  • Descripción

    En una empresa, cada empleado tiene un código entero de tres cifras. Diseñe un programa que lea el código de un empleado y determine de qué tipo de empleado se trata de acuerdo con los siguientes criterios:
    - Si el código es divisible por 2, por 3 y por 5, el tipo de empleado es "Administrativo".
    - Si el código es divisible por 3 y por 5 pero no por 2, el tipo de empleado es "Directivo".
    - Si el código es divisible por 2, pero no por 3 ni por 5, el tipo de empleado es "Vendedor".
    - Si el código no es divisible por 2, ni por 3 ni por 5, el tipo de empleado es "Seguridad".

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

var codigo_del_empleado : integer;
begin
    write ('Ingresa el valor de codigo del empleado: ');
    readln (codigo_del_empleado);
    if (codigo_del_empleado mod 2=0) and (codigo_del_empleado mod 3=0) and (codigo_del_empleado mod 5=0) then
        begin
            writeln ('Administrativo');
        end;
    if (codigo_del_empleado mod 2<>0) and (codigo_del_empleado mod 3=0) and (codigo_del_empleado mod 5=0) then
        begin
            writeln ('Directivo');
        end;
    if (codigo_del_empleado mod 2=0) and (codigo_del_empleado mod 3<>0) and (codigo_del_empleado mod 5<>0) then
        begin
            writeln ('Vendedor');
        end;
    if (codigo_del_empleado mod 2<>0) and (codigo_del_empleado mod 3<>0) and (codigo_del_empleado mod 5<>0) then
        begin
            writeln ('Seguridad');
        end;
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.