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