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
Искомой цифры в числе нет