Найти в тексте слова, в которых первая буква слева встречается более одного раза

@XEHK · Регистрация: 23.03.2011

Author24 — интернет-сервис помощи студентам

Здраствуйте вот есть задачка, немогу ие решить

.Найти в тексте слова, в которых первая буква слева встречается более одного раза. В тексте слова разделяютса пробеламе после последнего слова точка

@Puporev · 14.07.2011, 09:58

Сообщение от XEHK

первая буква слева

Вообще-то это просто первая буква, ибо первая буква справа называется последней...
Может в условии напутал?

Добавлено через 15 минут
В принципе так. Если условие попутал, то просто s1[1] заменишь на какое нужно.

Pascal

uses crt;
var s,s1:string;
    c,a:char;
    i,j,k:byte;
begin
clrscr;
writeln('Введите слова, разделенные пробелами, в конце точка');
s:='';
a:=readkey;
write(a);
repeat
c:=readkey;
if(c=' ')and(a=' ') then c:=#0
else
 begin
  write(c);
  s:=s+c;
 end;
a:=c;
if c='.' then writeln;
until c='.';
k:=0;
writeln('Слова, первая буква которых встречается болeе 1 раза:');
i:=1;
while i<length(s) do
if(s[i]<>' ')and((i=1)or(s[i-1]=' ')) then
 begin
  j:=i;
  s1:='';
  while(j<length(s))and(s[j]<>' ') do
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  if pos(s1[1],copy(s1,2,length(s1)-1))>0 then
   begin
    write(s1,' ');;
    k:=1;
   end;
  i:=i+length(s1);
 end
else i:=i+1;
if k=0 then write('Таких слов нет');
readln
end.

@XEHK · 14.07.2011, 13:30 **[ТС]**

Большое спасибо,я попутал, там первая буква в слове

@XEHK 4 / 4 / 1 Регистрация: 23.03.2011 Сообщений: 69
		1
	Найти в тексте слова, в которых первая буква слева встречается более одного раза 13.07.2011, 21:04. Показов 1498. Ответов 2 Метки нет (Все метки) Здраствуйте вот есть задачка, немогу ие решить .Найти в тексте слова, в которых первая буква слева встречается более одного раза. В тексте слова разделяютса пробеламе после последнего слова точка 0

@XEHK 4 / 4 / 1 Регистрация: 23.03.2011 Сообщений: 69
	14.07.2011, 13:30 [ТС]	3
	Большое спасибо,я попутал, там первая буква в слове 0

Найти в тексте слова, в которых первая буква слева встречается более одного раза

Решение