Определить, из скольких букв состоит предложение

@abil · Регистрация: 15.08.2014

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

Дано предложение. Слова разделены пробелом. Найти из скольки слов оно состоит.

@Puporev · 16.08.2014, 11:57

Pascal

readln(s);
s:=' '+s;
k:=0;
for i:=2 to length(s) do
if(s[i]<>' ')and(s[i-1]=' ') then inc(k);

@abil · 16.08.2014, 12:27 **[ТС]**

а полностью можно) чет после того как написал предложение ничего не выводит((

@Puporev · 16.08.2014, 12:28

Сообщение от abil

чет после того как написал

Покажи что написал.

@abil · 16.08.2014, 12:29 **[ТС]**

Pascal

var
  s: string;
  i,k: integer;
begin
  readln(s);
s:=' '+s;
k:=0;
for i:=2 to length(s) do
if(s[i]<>' ')and(s[i-1]=' ') then inc(k);
end.

@Puporev · 16.08.2014, 12:30

Сообщение от abil

ничего не выводит((

Так ты и не пробуешь ничего выводить.

Pascal

1	write('Количество слов=',k);

@abil · 16.08.2014, 12:33 **[ТС]**

точно)) вот я нуб))

@Sergio Leone · 16.08.2014, 14:20

Так это же Паскаль ABC.NET, тут можно так:

Pascal

var
  s: string;
  k:integer;
begin
  readln(s);
  k := s.Split(new string[1](' '), System.StringSplitOptions.RemoveEmptyEntries).Count;
  WriteLn('Количество слов = ',k)
end.

@abil 0 / 0 / 1 Регистрация: 15.08.2014 Сообщений: 28
		1
	Определить, из скольких букв состоит предложение 16.08.2014, 11:53. Показов 1839. Ответов 7 Метки нет (Все метки) Дано предложение. Слова разделены пробелом. Найти из скольки слов оно состоит. 0

@abil 0 / 0 / 1 Регистрация: 15.08.2014 Сообщений: 28
	16.08.2014, 12:27 [ТС]	3
	а полностью можно) чет после того как написал предложение ничего не выводит(( 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	16.08.2014, 12:28	4
	Сообщение от abil чет после того как написал Покажи что написал. 0

@abil 0 / 0 / 1 Регистрация: 15.08.2014 Сообщений: 28
	16.08.2014, 12:33 [ТС]	7
	точно)) вот я нуб)) 0

	16.08.2014, 14:20

Определить, из скольких букв состоит предложение

Решение