в Турбо Паскале  

 

У введеному рядку підрахувати кількість слів, що однаково починаються і закінчуються

var  count:integer;  c,ch:char; begin  writeln('введите символ ');  readln(c);  writeln('введите строку ');  count:=0;  repeat    read(ch);    if ch=c then inc(count);  until ord(ch)=13;  writeln('кол-во повторений  ',count);  readln;  readlnend.