Дана строка, заканчивающаяся точкой. Определить, сколько слов в строке

@Bonanza-art · Регистрация: 10.12.2012

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

Дана строка, заканчивающаяся точкой. Определить, сколько слов в строке.

@orange_rush · 19.12.2012, 14:16

Pascal

var     s :string;
        i,kslov :integer;
BEGIN
        s:='однажды в студёную зимнюю пору.';
        repeat
                Inc(i);
                while (s[i]<>' ') and (s[i]<>'.') do inc(i);
                Inc(kslov);
        until s[i]='.';
 
        writeln(kslov);
        readln;
END.

@Bonanza-art 0 / 0 / 0 Регистрация: 10.12.2012 Сообщений: 28
		1
	Дана строка, заканчивающаяся точкой. Определить, сколько слов в строке 19.12.2012, 12:05. Показов 1867. Ответов 1 Метки нет (Все метки) Дана строка, заканчивающаяся точкой. Определить, сколько слов в строке. 0

	19.12.2012, 14:16

Дана строка, заканчивающаяся точкой. Определить, сколько слов в строке

Решение