Divisor común de dos valores en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Determinar si un valor N (cualquiera), es divisor común de otros dos valores X y Y (que se ingresan por teclado).

1
2
3
4
5
6
7
8
9
10
11
12
13

Proceso DivisorComunDeDosValores

    Escribir Sin Saltar "Ingresa el valor de  y:";

    Leer _y;

    Escribir Sin Saltar "Ingresa el valor de n:";

    Leer n;

    Escribir Sin Saltar "Ingresa el valor de x:";

    Leer x;

    Si x MOD n = 0 Y _y MOD n = 0 Entonces

        Escribir "N sí es divisor común de X y Y.";

    SiNo

        Escribir "N no es divisor común de X y Y.";

    FinSi

FinProceso