-
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
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.
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.