Дано предложение..... запутался

@Why? · Регистрация: 26.05.2010

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

Дано предложение. В нем слова разделены одним пробелом (начальныеи конечные пробелы и символ "-" в предложении отсутствуют). Определить количество слов в предложении

@AnTro.Net · 26.05.2010, 09:00

Pascal

begin
stroka:string;
i,k:=integer;
readln(stroka);
for i:=1 to lenght(stroka) do
if stroka(i)='' then k:=1;
writeln k;
end.

как тот так

@Why? · 27.05.2010, 01:01 **[ТС]**

Во второй строке ошибку выдает!

@Inadequate · 27.05.2010, 01:08

AnTro.Net, ты написал глупость. Если честно не понимаю как можно было такое постить в теме...

Why?, пройдись по строке, посчитай пробелы, и выведи на один больше. Потому как если учесть что условия выполняются, то количество слов будет на 1 больше, чем количество пробелов.

@Why? 0 / 0 / 0 Регистрация: 26.05.2010 Сообщений: 5
		1
	Дано предложение..... запутался 26.05.2010, 08:53. Показов 595. Ответов 3 Метки нет (Все метки) Дано предложение. В нем слова разделены одним пробелом (начальныеи конечные пробелы и символ "-" в предложении отсутствуют). Определить количество слов в предложении 0

@Why? 0 / 0 / 0 Регистрация: 26.05.2010 Сообщений: 5
	27.05.2010, 01:01 [ТС]	3
	Во второй строке ошибку выдает! 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	27.05.2010, 01:08	4
	AnTro.Net, ты написал глупость. Если честно не понимаю как можно было такое постить в теме... Why?, пройдись по строке, посчитай пробелы, и выведи на один больше. Потому как если учесть что условия выполняются, то количество слов будет на 1 больше, чем количество пробелов. 0