// 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
Есть в числе
выделить ячейку->ввести знак->выделить ячейку с первым.->ввести знак операции->выделить ячейку с вторым оп. -> нажать enter
Код и результаты работы на скриншоте. Если я правильно понял, надо посчитать количество людей родившемся в том или ином дне месяца, игнорируя первые числа. Что относительно выводов то вероятность родиться в какой-либо день меньше 31 примерно одинакова. 31 числа - примерно в 2 раза меньше, потому что такой день есть примерно в половине месяцев. Получается, вроде бы, дискретное равномерное распределение. На картинках выглядит похоже.