Defina una función check(n,d) en el programa. Si el número d aparece en el número entero n, el valor de la función es verdadero; de lo contrario, es falso, como check(9687,7).
usa wincrt;
var
b,s:longint;
comprobación de función(b,s:longint):boolean;
var
c,n,i,j:integer;p:boolean;
comenzar
p:=false;
mientras que b>0 comienza
c:= b mod 10;
b:=b div 10;writeln(b,'',c); si c=s entonces p:=true;
fin;
comprobar:=p;
fin;
comenzar p>
leer(b,s);
escribir(check(b,s)) ;
fin.
Si no se utiliza bpw , reemplaza la primera Quitar una línea