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

leer(b,s);

escribir(check(b,s)) ;

fin.

Si no se utiliza bpw , reemplaza la primera Quitar una línea