Дан текст, заканчивающийся точкой. Соседние слова разделены запятыми. Определить количество слов-палиндромов, которые начинаются с буквы "а".

@WWWZWWW · Регистрация: 22.11.2012

@CodeR · 08.01.2013, 09:49

Pascal

Var s,s1,st:string;
    k,i:byte;
Begin
    write('Введите текст: ');readln(s);
    s:=s+',';
    While Pos(',',s)>0 do
    Begin
      s1:=Copy(s,1,Pos(',',s)-1);
      Delete(s,1,Pos(',',s));
      st:='';
      For i:=1 to Length(s1) do
       st:=s1[i]+st;
      if (st[1]='a')and(s1=st) then inc(k);
    End;
    writeln(k);
End.

@WWWZWWW · 08.01.2013, 11:00 **[ТС]**

Спасибо.

@WWWZWWW 0 / 0 / 0 Регистрация: 22.11.2012 Сообщений: 18
		1
	Дан текст, заканчивающийся точкой. Соседние слова разделены запятыми. Определить количество слов-палиндромов, которые начинаются с буквы "а". 07.01.2013, 21:22. Показов 2355. Ответов 2 Метки нет (Все метки) Дан текст, заканчивающийся точкой. Соседние слова разделены запятыми. Определить количество слов-палиндромов, которые начинаются с буквы "а". 0

@WWWZWWW 0 / 0 / 0 Регистрация: 22.11.2012 Сообщений: 18
	08.01.2013, 11:00 [ТС]	3
	Спасибо. 0

Опции темы

Дан текст, заканчивающийся точкой. Соседние слова разделены запятыми. Определить количество слов-палиндромов, которые начинаются с буквы "а".

Решение