Составьте программу, определяющую, входит ли введенная вами цифра в десятичную запись введенного вами трехзначного числа
Язык программирования?
Pascal
begin
var (n, x) := ReadInteger2();
while n > 0 do
if n mod 10 = x then break
else n := n div 10
end;
Print(n > 0 ? 'входит' : 'не входит')
end.
