Cita:
Empezado por roman
Yo, la verdad, no entendí el metacódigo ![Embarrassment](http://www.clubdelphi.com/foros/images/smilies/redface.gif)
|
Seguramente por que el pseudocódigo que iría en lugar de los '...' no queda tán claro de deducir como yo pensaba...
Sería:
Código:
variables
n
a,b,c,d
comenzar
leer n
para a <- 1 hasta 4
para b <- 1 hasta 4
para c <- 1 hasta 4
para d <- 1 hasta 4
si no((n[a]=n[b]) v (n[a]=n[c]) v (n[a]=n[d]) v (*)
(n[b]=n[c]) v (n[b]=n[d]) v (n[c]=n[d])) entonces
escribir (n[a],n[b],n[c],n[d]).
fin
(*) v = disyunción inclusiva
Saludos.
![Smilie](http://www.clubdelphi.com/foros/images/smilies/smile.gif)