Algoritmo igualdade

•

CESUC

0

Beatriz Dantas

03.11.2017

Faça como milhares de estudantes: teste grátis o Passei Direto

Esse e outros conteúdos desbloqueados

16 milhões de materiais de várias disciplinas

Impressão de materiais

Agora você pode testar o

Passei Direto grátis

Você também pode ser Premium ajudando estudantes

Faça como milhares de estudantes: teste grátis o Passei Direto

Esse e outros conteúdos desbloqueados

16 milhões de materiais de várias disciplinas

Impressão de materiais

Agora você pode testar o

Passei Direto grátis

Você também pode ser Premium ajudando estudantes

E aí, curtiu este material?

Ajude a incentivar outros estudantes a melhorar o conteúdo

Gostou desse material? Compartilhe! 🧡

Programação C#

406 Materiais compartilhados

Baixe o app para aproveitar ainda mais

Leia os materiais offline, sem usar a internet. Além de vários outros recursos!

Prévia do material em texto

Catalão, 27 de setembro de 
2017
Alunas: Beatriz Dantas e Isabela 
Gobbi
2º Período – Engenharia Civil
Prof
: Luis Fernando
 
Algoritmo igualdade
{ 
Var N,A,AM,A1,B,BM,B1,B1M,C,CM,C1,C1M:inteiro;
escreva(“Informe um valor”);
leia(N);
Se (Ndiv100000>0) então
{
A=Ndiv100000;
AM=Nmod100000;
B=AMdiv10000;
BM=AMmod10000;
C=BMdiv1000;
CM=BMmod1000;
C1=CMdiv100;
C1M=CMmod100;
B1=C1Mdiv10;
B1M=C1Mmod10;
A1=B1M;
Se (A=A1) e (B=B1) e (C=C1) entâo
{
escreva(“É palíndromo”);
}
Senão
{
escreva(“Não é palíndromo”);
}
}
Senão (Ndiv100000=0) então
{
A=Ndiv10000;
AM=Nmod10000;
B=AMdiv1000;
BM=AMmod1000;
C=BMdiv100;
CM=BMmod100;
B1=CMdiv10;
B1M=CMmod10;
A1=B1M;
Se (A=A1) e (B=B1) então 
{
escreva(“É palíndromo”);
}
Senão
{
Escreva(“Não é palíndromo”);
}
}
}