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