-
Lenguaje
Pascal
-
Descripción
El director de un colegio requiere determinar el tiempo que tienen laborando los docentes a su cargo, pero necesita saber el año en que ingresaron a laborar.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program TiempoLaborando;
uses crt;
var ano_actual, ano_de_ingreso, tiempo : integer;
begin
write ('Ingresa el valor de ano actual: ');
readln (ano_actual);
write ('Ingresa el valor de ano de ingreso: ');
readln (ano_de_ingreso);
tiempo := ano_actual-ano_de_ingreso;
writeln ('Valor de tiempo: ', tiempo);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var ano_actual, ano_de_ingreso, tiempo : integer;
begin
write ('Ingresa el valor de ano actual: ');
readln (ano_actual);
write ('Ingresa el valor de ano de ingreso: ');
readln (ano_de_ingreso);
tiempo := ano_actual-ano_de_ingreso;
writeln ('Valor de tiempo: ', tiempo);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.