Question

Escreva um programa que receba um número inteiro na entrada e verifique se o número recebido possui ao menos um dígito com um dígito adjacente igual a ele. Caso exista, imprima "sim". Se não existir, imprima "nao". Note que o "nao" da saída não deve conter um "~"

Answer 1

Precisei utilizar constantes, pois não conheço nenhum comando que consiga saber se o primeiro algorismo é igual ao segundos, porém, há algumas burlas que você pode dizer até quanto quer:
Copie e cole no seu compilador!
Observação: Por questões técnicas, é possível que não rode em outro compilador que não o "PZIM", ou seja, só roda em Pascal.

Program  Isabelalsc9269 ;constn1=00;n2=11;n3=22;n4=33;n5=44;n6=55;n7=66;n8=77;n9=88;n10=99;n11=100;n12=111;varn: real;resp:string;Beginwriteln('Algoritmo desenvolvido por @lrodolfo_augusto - IFBA');
repeatwriteln('Informe o número');readln(n);IF (n=n1) or (n=n2)  or (n=n3)  or (n=n4) or (n=n5) or (n=n6) or (n=n7) or (n=n8) or (n=n9) or (n=n10) or (n=n11) or (n=n12) or  THENbeginwriteln('O número possui a condição?');
writeln('Sim');endElsebeginwriteln('O número possui a condição?');
writeln('Nao');end;writeln('Deseja refazer o processo? [S/N]');readln(resp);until(resp = 'n');  End.

Answer 2

Resposta:

Meu algoritmo em Python.

num=int(input('digite um numero: '))

num1=num

rest1=num%10

while num//10!=0:

       num=num//10

       rest=num%10

       if rest==rest1:

               print('sim')

               num=num1

               break

       rest1=rest

if num//10==0:

       print('nao')

Explicação passo-a-passo: