Подсчитать количество подстрок в строке
Напишите программу, которая определяет, сколько раз в строке встречается слог 'МА'. Очень прошу, помогите! Чтобы в черном окне потом ввести строку, и тебе покажет сколь раз встречается слог.
for i:=1 to length(s)-1 do
if (s = 'M') and (s[i+1] = 'A') then inc(count);
writeln(count);
if (s = 'M') and (s[i+1] = 'A') then inc(count);
writeln(count);
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
А еще есть pos 
It's a long way to the top if you wanna rock'n'roll