Фрагменты  решенных задач

 1С клавиатуры вводится строка и буква,подсчитать, сколько раз эта буква b встречается в строке.

for i:=1 to length(str) do if str[i]= ' b ' then k:=k+1; { подсчет совпадений }write(' Ответ: ',k);

 

2Составить программу, которая подсчитывает количество слов во введенной с клавиатуры строке.

 

for i:=1 to length(str) do if str[i]=' ' then n:=n+1; {подсч пробелы}writeln('В строке ',n+1, ' слов');

 

3Составить программу, которая заменяет все буквы «а» на «о», в слове  введенном с клавиатуры

for i:=1 to length(str) do if str[i]='а ' then str[i]:='о'; {замена а на о} writeln(str);

 

4Составить программу, которая выводит порядковый номер символа«а»  в  введенной с клавиатуры строке.

for i:=1 to length(str) do if str[i]='а ' then writeln('поряд номер«а»-', i);{вывод номера}

5Составить программу, которая подсчитывает количество пробелов во введенной с клавиатуры строке.

 

for i:=1 to length(str) do

if str[i]=' ' then n:=n+1; {подсч пробелы}writeln('В строке ',n, ' пробелов');