• Lenguaje

    Pascal

  • Descripción

    Calcule la cantidad de años, semanas y días transcurridos a partir de una cantidad de días dada por el usuario, ejemplo: si el usuario ingresa 1329 días, el programa como salida muestra 3 años, 33 semanas y 3 días.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program CantidadDeAnosSemanasYDias;
uses crt;

var anos, cantidad_de_dias, dias, semanas : integer;
begin
    write ('Ingresa el valor de cantidad de dias: ');
    readln (cantidad_de_dias);
    anos := cantidad_de_dias-cantidad_de_dias mod 365;
    semanas := cantidad_de_dias-anos-(cantidad_de_dias-anos) mod 7;
    dias := cantidad_de_dias-anos-semanas;
    anos := anos div 365;
    semanas := semanas div 7;
    writeln ('Valor de anos: ', anos);
    writeln ('Valor de dias: ', dias);
    writeln ('Valor de semanas: ', semanas);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.