Question

Напишите программу, которая вводит трёхзначное число и десятичную цифру. Определить, входит ли эта цифра в десятичную запись введённого числа.

Answer 1

Var n,m:integer;
begin
write('Число = '); readln(n);
write('Цифра = '); readln(m);
if (n div 100 = m)or(n div 10 mod 10 = m)or(n mod 10 = m)
 then writeln('Цифра есть')
 else writeln('Цифры нет');
end.

Пример:
Число = 519
Цифра = 5
Цифра есть