Дана строка из 25 слов. Вывести на экран все слова строки, содержащие ровно две буквы D

@log1tec · Регистрация: 23.12.2011

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

Дана строка из 25 слов. Вывести на экран все слова строки, содержащие ровно две буквы D.

Заранее спасибо =)

@Фаер · 06.03.2012, 16:17

Pascal

Var s,p:string[25]; i,j,k:integer;
Begin
Writeln('Input string:'); Readln(s);
For i:=1 to length(s) do
 If not(s[i]=' ') and not (i=length(s)) then p:=p+s[i]
  Else
   Begin
    If i=length(s) then p:=p+s[length(s)];
    For j:=1 to length(p) do If p[j]='D' then inc(k);
    If k=2 then Write(p,' ');
    k:=0; p:='';
   End;
Readln;
End.

@log1tec · 06.03.2012, 16:41 **[ТС]**

Спасибо!

@log1tec 0 / 0 / 0 Регистрация: 23.12.2011 Сообщений: 4
		1
	Дана строка из 25 слов. Вывести на экран все слова строки, содержащие ровно две буквы D 06.03.2012, 14:36. Показов 2998. Ответов 2 Метки нет (Все метки) Дана строка из 25 слов. Вывести на экран все слова строки, содержащие ровно две буквы D. Заранее спасибо =) 0

@log1tec 0 / 0 / 0 Регистрация: 23.12.2011 Сообщений: 4
	06.03.2012, 16:41 [ТС]	3
	Спасибо! 0

Опции темы

Дана строка из 25 слов. Вывести на экран все слова строки, содержащие ровно две буквы D

Решение