Pseint - Hallar si el numero es Palindrome.

Proceso palindrome
Definir num,t,u,r,d,s,c,um Como Entero
escribir "digite un numero de 4 cifras";
leer num;
t<- num/10;
u<- num-(t*10)
r<- t/10;
d<- t-(r*10)
s<- r/10;
c<- r-(s*10);
um<- s;
si num>999 y num<10000 entonces
escribir "realizar la compracion";
si u=um y d=c entonces
 Escribir "el numero es palindrome";
 sino
 escribir "el numero no es palindrome";
FinSi
sino
escribir "no se puede realizar la comparacion";
FinSi
FinProceso

Comentarios

Publicar un comentario

Entradas populares de este blog

Pseint---- Ordenar tres números de mayor a menor

Proceso ordenar_mayor_a_memor definir num1,num2,num3 como entero; escribir "Introduce 3 Numero"; leer num1; leer num2; leer num3; si num1>num2 y num1>num3 Entonces escribir num1; si num2>num3 Entonces escribir num2; escribir num3; Sino escribir num3; escribir  num2; FinSi sino si num2>num1 y num2>num3 entonces escribir num2; si num1>num3 Entonces escribir num1; escribir num3; Sino escribir num3; escribir num1; FinSi Sino escribir num3; si num1>num2 Entonces escribir num1; escribir num2; Sino escribir num2; escribir num1; FinSi FinSi finsi FinProceso
Leer más

Pseint - votos candidato

En unas elecciones de 3 Candidatos se desea saber ¿cual es el promedio de la votación? y ¿cual es la mayor votación? -------------------------------------------------------------------------------------------------------- Datos de Variables Candidato1 = c1 Candidato2 = c2 Candidato3 = c3 Promedio de Votos = p Mayor Votación = Can -------------------------------------------------------------------------------------------------------- Proceso votos_candidato definir can,c1, c2, c3, p Como Entero can<-0; escribir "Cantidad De Votos Candidato numero 1"; leer c1; escribir "Cantidad De Votos Candidato numero 2"; leer c2; escribir "Cantidad De Votos Candidato numero 3"; leer c3; p<-(c1+c2+c3)/3; si c1>c2 y c1>c3 Entonces can<-c1; FinSi si c2>c1 y c2>c3 Entonces can<-c2; FinSi si c3>c1 y c3>c2 Entonces can<-c3; FinSi Escribir "El Promedio De Votos Es : ",p; Escri...
Leer más

Pseint - Nomina Salarial

Proceso Nomina_Salarial definir sd,He,at,td,ps,tp,vp,ps1,ps2 Como real; definir s,d,t,he1 como entero; definir nomb como caracter; escribir "Nombre del Trabajador"; leer Nomb; escribir "Salario Basico"; leer s; escribir "Dias Trabajados"; leer D; escribir "Auxilio de Transporte"; leer t; escribir "Horas Extras"; leer He1; sd<- (s/30)*d; at<- (t/30)*d; he<- (s/240)*1.25*he1; td<- sd+he+at; ps1<- td*0.04; ps2<- td*0.04; vp<- td*0.05; tp<- td-ps1-ps2-vp; escribir "Salario Devengado: ",sd; escribir "Total Auxilio Transporte: ",at; escribir "Total Horas Extras: ",he; Escribir "Total Devengado: ",td; escribir "Menos Seguridad Social (Salud 4% y Pension 4%)"; escribir "Salud: ",ps1; escribir "Pension: ",ps2; escribir "Menos prestamo del 5%"; escribir "Valor Prestado: "...
Leer más