Строки. Подсчитать количество слов с тремя буквами

@yulia2012 · Регистрация: 26.02.2012

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

написать программу,которая будет считать сколько слов с тремя буквами.

Добавлено через 1 минуту
с объяснением можно)(заранее спасибо)

@denysd · 20.05.2012, 21:24

yulia2012 нам дан текст?

@yulia2012 · 21.05.2012, 07:05 **[ТС]**

мы вводим строку)

@КонецСвета · 21.05.2012, 14:56

Pascal

uses crt;
var s,sl: string;
    i,k: byte;
begin
write('Введите строку ');
readln(s);
s:=s+' '; sl:='';
for i:=1 to length(s) do
    if s[i]<>' ' then sl:=sl+s[i]
       else
       begin
       if length(sl)=3 then inc(k);
       sl:='';
       end;
writeln ('В тексте ',k,' слов(а) с 3 буквами');
end.

@yulia2012 0 / 0 / 0 Регистрация: 26.02.2012 Сообщений: 48
		1
	Строки. Подсчитать количество слов с тремя буквами 20.05.2012, 18:24. Показов 1335. Ответов 3 Метки нет (Все метки) написать программу,которая будет считать сколько слов с тремя буквами. Добавлено через 1 минуту с объяснением можно)(заранее спасибо) 0

@denysd 0 / 0 / 1 Регистрация: 18.05.2012 Сообщений: 12
	20.05.2012, 21:24	2
	yulia2012 нам дан текст? 0

@yulia2012 0 / 0 / 0 Регистрация: 26.02.2012 Сообщений: 48
	21.05.2012, 07:05 [ТС]	3
	мы вводим строку) 0

	21.05.2012, 14:56