Имеем строку, состоящую из слов, разделенных пробелами. Определить количество слов, содержащих ровно три буквы

@olena_rehush · Регистрация: 11.11.2014

Имеем строку, состоящую из слов, разделенных пробелами. Определить количество слов, содержащих ровно три буквы 'b'

@Chertenok_n_13 · 11.11.2014, 09:30

Pascal

 uses crt;
 var str:string;
 i,j,kol:integer;
 begin
 writeln('');
 readln(str);
 str:=str+' ';
 for i:=1 to length(str) do begin
 if str[i]<> ' ' then inc(j)
                 else begin if j=3 then inc(kol);
                            j:=0;
                      end;
                            end;
 clrscr;
 writeln(str);
 writeln('Количество слов содержащих только три буквы: ', kol);
 readln;
 end.

@olena_rehush 0 / 0 / 0 Регистрация: 11.11.2014 Сообщений: 9
		1
	Имеем строку, состоящую из слов, разделенных пробелами. Определить количество слов, содержащих ровно три буквы 11.11.2014, 03:07. Показов 2075. Ответов 1 Метки нет (Все метки) Имеем строку, состоящую из слов, разделенных пробелами. Определить количество слов, содержащих ровно три буквы 'b' 0

Опции темы

Имеем строку, состоящую из слов, разделенных пробелами. Определить количество слов, содержащих ровно три буквы

Решение