201 258 7DA Советую скачать двоичный калькулятор)
// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
begin
var s:=ReadlnInteger('Число:').ToString;
if Pos(ReadlnString('Цифра:'),s)>0 then Writeln('Есть в числе')
else Writeln('Нет в числе')
end.
<u><em>Тестовое решение:</em></u>
Число: 634
Цифра: 3
Есть в числе
Дважды кликнуть ПКМ (Правой Кнопкой Мыши) по иконки Paint.
Имя файла ''Физика.doc.''