在程序中定义一个函数check(n,d)，如果数字d在整数n中出现，则函数值为真，否则为假，如check(9687,7)

在程序中定义一个函数check(n,d)，如果数字d在整数n中出现，则函数值为真，否则为假，如check(9687,7)

Private Function check(n As Integer, d As Integer) As Boolean
If InStr(1, CStr(n), CStr(d)) > 0 Then check = True Else check = False
End Function

uses wincrt;
var
b,s:longint;
function check(b,s:longint):boolean;
var
c,n,i,j:integer;p:boolean;
begin
p:=false;
while b>0 do begin
c:= b mod 10;
b:=b div 10;writeln(b,' ',c); if c=s then p:=true;
end;
check:=p;
end;
begin
read(b,s);
write(check(b,s)) ;
end.
不用bpw的话把第一行去掉

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息