1. Clasificación de carácter.

Lea un carácter y clasifíquelo según.
A a Z Sletras
0 a 9 Snumeros
Otro Sespeciales
Cada pila posee un tamaño de 30 posiciones y se leen 20 caracteres.

Begin
Stack sletras [30]
Stack snumeros [30]
Stack sespecial [30]
cont = 1
While (cont < = 20) do
Read carac
If (carac > = 0) and (carac < = 9) then
push (snumeros, carac)
Else
If (carac > = a) and (carac < = z) then
push (sletras, carac)
Else
push (sespecial, carac)
End if
End if
cont = cont + 1
End while
End

push (snumeros, carac)
top[snumeros] <– top[snumeros] + 1
snumeros[top[snumeros]] <– carac

push (sletras, carac)
top[sletras] <– top[sletras] + 1
sletras [top[sletras]] <– carac

push (sespecial, carac)
top[sespecial] <– top[sespecial] + 1
sespecial [top[sespecial]] <– carac