Посчитайте,сколько число а встречается в строке

ответ:Для справки: этот код будет считать цифры до точки или до...

Объяснение:

                                              PascalABC.NET

begin

 var st := ReadString('Введите строку:');

 var a := ReadInteger('Введите число:');

 Print('Обнаружено совпадений:',st.Where(x -> x = IntToStr(a)).Count);

end.