• Lenguaje

    PSeInt (Pseudocódigo)

  • Descripción

    Dado un año tecleado por el usuario, escriba el siglo al que pertenece. Recuerda que el siglo comienza el primer año de cada centenario, es por eso por lo que el año 1800 sigue siendo el siglo XVIII y será siglo XIX a partir de 1801. Nota. No se escriben todos los años, existe una fórmula para obtener las centenas del año.

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
Proceso _Siglo
    Escribir Sin Saltar "Ingresa el valor de anno:";
    Leer anno;
    Escribir Sin Saltar "Ingresa el valor de ano:";
    Leer ano;
    siglo <- (anno-ano MOD 100)/100;
    Si ano MOD 100 <> 0 Entonces
        siglo <- siglo+1;
    FinSi
    Si siglo = 1 Entonces
        Escribir "I";
    FinSi
    Si siglo = 2 Entonces
        Escribir "II";
    FinSi
    Si siglo = 3 Entonces
        Escribir "III";
    FinSi
    Si siglo = 4 Entonces
        Escribir "IV";
    FinSi
    Si siglo = 5 Entonces
        Escribir "V";
    FinSi
    Si siglo = 6 Entonces
        Escribir "VI";
    FinSi
    Si siglo = 7 Entonces
        Escribir "VII";
    FinSi
    Si siglo = 8 Entonces
        Escribir "VIII";
    FinSi
    Si siglo = 9 Entonces
        Escribir "IX";
    FinSi
    Si siglo = 10 Entonces
        Escribir "X";
    FinSi
    Si siglo = 11 Entonces
        Escribir "XI";
    FinSi
    Si siglo = 12 Entonces
        Escribir "XII";
    FinSi
    Si siglo = 13 Entonces
        Escribir "XIII";
    FinSi
    Si siglo = 14 Entonces
        Escribir "XIV";
    FinSi
    Si siglo = 15 Entonces
        Escribir "XV";
    FinSi
    Si siglo = 16 Entonces
        Escribir "XVI";
    FinSi
    Si siglo = 17 Entonces
        Escribir "XVII";
    FinSi
    Si siglo = 18 Entonces
        Escribir "XVIII";
    FinSi
    Si siglo = 19 Entonces
        Escribir "XIX";
    FinSi
    Si siglo = 20 Entonces
        Escribir "XX";
    FinSi
    Si siglo = 21 Entonces
        Escribir "XXI";
    FinSi
    Escribir "Valor de siglo: ", siglo;
FinProceso