-
Lenguaje
Pascal
-
Descripción
Leer un número de segundos. Calcular mes, día, hora, minutos y segundos.
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
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program SegundosEnMesesDiasHorasMinutosYSegundos;
uses crt;
var dia, hora, mes, minutos, numero_de_segundos : integer;
var segundos : integer;
begin
write ('Ingresa el valor de numero de segundos: ');
readln (numero_de_segundos);
segundos := numero_de_segundos mod 60;
minutos := (numero_de_segundos-segundos) div 60;
hora := (minutos-minutos mod 60) div 60;
dia := (hora-hora mod 24) div 24;
mes := (dia-dia mod 30) div 30;
minutos := minutos mod 60;
hora := hora mod 24;
dia := dia mod 30;
writeln ('Valor de dia: ', dia);
writeln ('Valor de hora: ', hora);
writeln ('Valor de mes: ', mes);
writeln ('Valor de minutos: ', minutos);
writeln ('Valor de segundos: ', segundos);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var dia, hora, mes, minutos, numero_de_segundos : integer;
var segundos : integer;
begin
write ('Ingresa el valor de numero de segundos: ');
readln (numero_de_segundos);
segundos := numero_de_segundos mod 60;
minutos := (numero_de_segundos-segundos) div 60;
hora := (minutos-minutos mod 60) div 60;
dia := (hora-hora mod 24) div 24;
mes := (dia-dia mod 30) div 30;
minutos := minutos mod 60;
hora := hora mod 24;
dia := dia mod 30;
writeln ('Valor de dia: ', dia);
writeln ('Valor de hora: ', hora);
writeln ('Valor de mes: ', mes);
writeln ('Valor de minutos: ', minutos);
writeln ('Valor de segundos: ', segundos);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.