Напечатать строку, предварительно удалив первое вхождение ‘w’,

@kSUSHONOk · Регистрация: 06.12.2010

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

1)Дана строка латинских символов. Напечатать эту строку, предварительно удалив первое вхождение ‘w’, если такое есть (образовавшуюся «дыру» заполнить последующими буквами, а в конец добавить пробел).
2) Дана последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 строчных латинских букв; между соседними словами – запятая, за последним словом точка. Напечатать все различные слова, указав для каждого из них число его вхождений в последовательность.

Пожалуйста помогите с кодом...кто чем может))) оч нужно... зарание спасибо!

@andrei63 · 06.12.2010, 19:21

var s:string;
i:integer;
begin
readln(s);
delete(s,pos('w',s),1);
s:=s+' ';
writeln(s);
end.

@Dekio · 06.12.2010, 19:21

Pascal

program Dekio;
var
s :string;
begin
readln(s);
delete(s,pos('w',s),1);
s[length(s)+1]:=' ';
writeln(s);
end.

@kSUSHONOk · 06.12.2010, 19:41 **[ТС]**

Дан непустой текст из заглавных латинских букв, за которым следует точка. Определить упорядочены ли эти буквы по алфавиту. В случае неупорядоченности указать позицию первого символа, нарушающего алфавитный порядок.

та же беда...

@Dekio · 06.12.2010, 19:43

Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема.

@kSUSHONOk 0 / 0 / 0 Регистрация: 06.12.2010 Сообщений: 4
		1
	Напечатать строку, предварительно удалив первое вхождение ‘w’, 06.12.2010, 19:16. Показов 1258. Ответов 4 Метки нет (Все метки) 1)Дана строка латинских символов. Напечатать эту строку, предварительно удалив первое вхождение ‘w’, если такое есть (образовавшуюся «дыру» заполнить последующими буквами, а в конец добавить пробел). 2) Дана последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 строчных латинских букв; между соседними словами – запятая, за последним словом точка. Напечатать все различные слова, указав для каждого из них число его вхождений в последовательность. Пожалуйста помогите с кодом...кто чем может))) оч нужно... зарание спасибо! 0

@andrei63 141 / 135 / 69 Регистрация: 15.12.2009 Сообщений: 343
	06.12.2010, 19:21	2
	var s:string; i:integer; begin readln(s); delete(s,pos('w',s),1); s:=s+' '; writeln(s); end. 1

@kSUSHONOk 0 / 0 / 0 Регистрация: 06.12.2010 Сообщений: 4
	06.12.2010, 19:41 [ТС]	4
	Дан непустой текст из заглавных латинских букв, за которым следует точка. Определить упорядочены ли эти буквы по алфавиту. В случае неупорядоченности указать позицию первого символа, нарушающего алфавитный порядок. та же беда... 0

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,375 Записей в блоге: 1
	06.12.2010, 19:43	5
	Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема. 1