// 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
Есть в числе
Графический приметив это как таблица как график
Виды файловых систем.
////////////////////////////////////////////
В оперативную ))))))))))))))
Вот у меня осталось с позапрошлого года ещё