Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

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

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

Ответ оставил Гость

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;
  readln
end.