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

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

Искомой цифры в числе нет