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

@Fuuny · Регистрация: 15.04.2014

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

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

Добавлено через 23 секунды
гуглил не нашел((

Добавлено через 29 секунд
а самому мозгов не хватит а завтра уже сдавать.

@CodeR · 24.04.2014, 17:17

Pascal

Var s:string;
    k:byte;
Begin
    write('Строка: ');readln(s);
    s:=s+' ';
    While Pos(' ',s)>0 do
    Begin
      if Length(Copy(s,1,Pos(' ',s)-1))=4 then inc(k);
      Delete(s,1,Pos(' ',s));
    End;
    writeln(k,' слов');
    readln;
End.

Слова отделяются пробелами

@Fuuny 0 / 0 / 0 Регистрация: 15.04.2014 Сообщений: 13
		1
	Дана строка символов. Определить количество слов, состоящих из четырех букв 24.04.2014, 16:20. Показов 1717. Ответов 1 Метки нет (Все метки) Дана строка символов. Определить количество слов состоящих из четырех букв. Добавлено через 23 секунды гуглил не нашел(( Добавлено через 29 секунд а самому мозгов не хватит а завтра уже сдавать. 0

	24.04.2014, 17:17

Опции темы

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

Решение