Сложное задание на строки: Дано предложение. Вывести столбиком его первый, второй, пятый, шестой, девятый, десятый и т.д. символы. Сколько слов в пр.?

@S_L_Y · Регистрация: 16.11.2010

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

Дано предложение. Вывести столбиком его первый, второй, пятый, шестой, девятый, десятый и т.д. символы. Сколько слов в вашем предложении?

Ребят, помогите пожалуйста.

@p@$#@ · 26.12.2010, 20:54

Первое задание упирается в эту строчку

Pascal

1	for i:=1 to length do writeln(s[i]);

Второе - в эту:

Pascal

1	for i:=1 to length(s) do if s[i]=' ' then inc(g);

@Dekio · 26.12.2010, 21:00

Сообщение от p@$#@

for i:=1 to length do writeln(s[i]);

надо to length(s)

@S_L_Y · 26.12.2010, 21:25 **[ТС]**

Сообщение от p@$#@

Первое задание упирается в эту строчку

Pascal

1	for i:=1 to length do writeln(s[i]);

Второе - в эту:

Pascal

1	for i:=1 to length(s) do if s[i]=' ' then inc(g);

Спасибо большое!) Все работает. Оказывается.. задания не такие уж и сложные

Еще раз премного благодарен.

@p@$#@ · 26.12.2010, 22:03

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

надо to length(s)

Да пропустил, спасибо!

@patricksmirnov · 27.12.2010, 12:14

Второе - в эту:
Код Pascal1 for i:=1 to length(s) do if s[i]=' ' then inc(g);

А если слово отделено несколькими пробелами или запятой? Не все ведь правильно форматируют текст..

@S_L_Y 3 / 3 / 5 Регистрация: 16.11.2010 Сообщений: 24
		1
	Сложное задание на строки: Дано предложение. Вывести столбиком его первый, второй, пятый, шестой, девятый, десятый и т.д. символы. Сколько слов в пр.? 26.12.2010, 20:02. Показов 3611. Ответов 5 Метки нет (Все метки) Дано предложение. Вывести столбиком его первый, второй, пятый, шестой, девятый, десятый и т.д. символы. Сколько слов в вашем предложении? Ребят, помогите пожалуйста. 0

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,375 Записей в блоге: 1
	26.12.2010, 21:00	3
	Сообщение от p@$#@ for i:=1 to length do writeln(s[i]); надо to length(s) 2

@p@$#@ 73 / 72 / 37 Регистрация: 21.11.2009 Сообщений: 258
	26.12.2010, 22:03	5
	Сообщение от Dekio надо to length(s) Да пропустил, спасибо! 0

@patricksmirnov 76 / 76 / 51 Регистрация: 28.02.2010 Сообщений: 159
	27.12.2010, 12:14	6
	Второе - в эту: Код Pascal1 for i:=1 to length(s) do if s[i]=' ' then inc(g); А если слово отделено несколькими пробелами или запятой? Не все ведь правильно форматируют текст.. 0