Question

дано двузначное число. определите входит ли в него цифра b

Answer 1

var
  n,b:integer;
begin
  Write('Введите натуральное двухзначное число: ');
  Read(n);
  Write('Введите искомую цифру: ');
  Read(b);
  if (n mod 10 = b) or (n div 10 = b) then
    Writeln('Искомая цифра в числе есть')
  else
    Writeln('Искомой цифры в числе нет')
end.

Контрольные решения
Введите натуральное двухзначное число: 38
Введите искомую цифру: 3
Искомая цифра в числе есть

Введите натуральное двухзначное число: 50
Введите искомую цифру: 2
Искомой цифры в числе нет