Напечатать все символы, предшествующие первой запятой

@dj_danila · Регистрация: 09.06.2010

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

дано предложение. напечатать все его символы, предшествующие первой запятой. рассмотреть два случая:
1)известно, что в предложении запятые имеются;
2)в предложении запятых может и не быть....

это одна программа...

@TAVulator · 11.11.2010, 20:47

Pascal

1 2	S:='предложение с запятыми, без запятых'; if pos(',',S)<>0 then writeln(copy(S,1,pos(',',S))) else writeln('предложение без запятых');

@yuivanenko · 11.11.2010, 20:48

через pos() определяешь номер первого вхождения запятой. А дальше если pos равняется 0, то пишешь что запятых нет, а если не равняется нулю, печатаешь строку с первого символа по значение pos
Тавулар меня опередил

@dj_danila 0 / 0 / 0 Регистрация: 09.06.2010 Сообщений: 42
		1
	Напечатать все символы, предшествующие первой запятой 11.11.2010, 20:44. Показов 2094. Ответов 2 Метки нет (Все метки) дано предложение. напечатать все его символы, предшествующие первой запятой. рассмотреть два случая: 1)известно, что в предложении запятые имеются; 2)в предложении запятых может и не быть.... это одна программа... 0

@yuivanenko 34 / 33 / 12 Регистрация: 09.01.2010 Сообщений: 202
	11.11.2010, 20:48	3
	через pos() определяешь номер первого вхождения запятой. А дальше если pos равняется 0, то пишешь что запятых нет, а если не равняется нулю, печатаешь строку с первого символа по значение pos Тавулар меня опередил 1

Напечатать все символы, предшествующие первой запятой

Решение