-
Lenguaje
Pascal
-
Descripción
Una empresa que contrata personal requiere determinar la edad de las personas que solicitan trabajo, pero cuando se les realiza la entrevista sólo se les pregunta el año en que nacieron.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program EdadAPartirDelAnoDeNacimiento;
uses crt;
var ano_actual, ano_de_nacimiento, edad : integer;
begin
write ('Ingresa el valor de ano actual: ');
readln (ano_actual);
write ('Ingresa el valor de ano de nacimiento: ');
readln (ano_de_nacimiento);
edad := ano_actual-ano_de_nacimiento;
if edad>=18 then
begin
writeln ('Aprobado');
end
else
begin
writeln ('Rechazado');
end;
writeln ('Valor de edad: ', edad);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var ano_actual, ano_de_nacimiento, edad : integer;
begin
write ('Ingresa el valor de ano actual: ');
readln (ano_actual);
write ('Ingresa el valor de ano de nacimiento: ');
readln (ano_de_nacimiento);
edad := ano_actual-ano_de_nacimiento;
if edad>=18 then
begin
writeln ('Aprobado');
end
else
begin
writeln ('Rechazado');
end;
writeln ('Valor de edad: ', edad);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.