ответ:Для справки: этот код будет считать цифры до точки или до...
Объяснение:
PascalABC.NET
begin
var st := ReadString('Введите строку:');
var a := ReadInteger('Введите число:');
Print('Обнаружено совпадений:',st.Where(x -> x = IntToStr(a)).Count);
end.
