求一函数，验证一三位数，如果该三位数包涵某数字，比如2则该涵数返回0，否则返回1

Question

求一函数，验证一三位数，如果该三位数包涵某数字，比如2则该涵数返回0，否则返回1
希望高手们能给出最佳的代码~
谢谢~

Answer 1

转换为字符串，再使用pos函数查找

Answer 2

function digitmatch(num, digit: integer): integer
begin
    if ((num mod 10) = digit) then return 0;
    num = num div 10;
    if ((num mod 10) = digit) then return 0;
    if num = digit then return 0; else return 1;
end;多年不写 PASCAL 了.

Answer 3

if ((num mod 10) = digit) then return 0;
  num = num div 10;
  if ((num mod 10) = digit) then return 0;
  num = num div 10;
  if num = digit then return 0; else return 1;