Страницы 99, 100, 101, 102 параграф 7 номер 13, ГДЗ по информатике за 11 класс к учебнику Босовой

var

  x, z, n: integer;

begin

  writeln('Введи число');

  read(x);

  writeln('Введи цифру');

  read(z);

  n := 0;

  while x > 0 do

  begin

    if x mod 10 = z then n := n + 1;

    x := x div 10

  end;

  if n > 0 then write('входит') else write('не входит')

end.