15.12.2010, 20:15 | #1 (permalink) |
Новичок
Регистрация: 15.12.2010
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Строки
|
15.12.2010, 20:15 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Как вы уже поняли - это темы которые имеют сходства с вашей Строки в С Строки Строки Строки |
16.12.2010, 20:43 | #3 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Так, сударь - намеков Вы не понимаете. Ладно. Своим прошлым ответом я попытался деликатно дать Вам понять, что нужно, обращаясь за помощью, соблюдать хотя бы элементарную вежливость. А прислуги, тем более халявной, здесь нет. И не надо нам тут отдавать распоряжения.
Тема-дубликат удалена. А еще вздумаете клонировать топики - пойдете в бан. Это я Вам уже как модератор обещаю. |
16.12.2010, 22:36 | #5 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
uses crt; VAR S:string; SS:ARRAY[1..255] of String; cnt,i,j,N,Ns:byte; b:boolean; BEGIN Clrscr; WriteLn('Enter the string:'); ReadLn(s); Ns:=0; Repeat cnt:=pos(' ',S); if cnt>0 then begin Inc(Ns); SS[Ns]:=copy(s,1,cnt); S:=copy(S,cnt+1,length(S)); end; Until cnt=0; Inc(Ns); SS[Ns]:=S; N:=0; For i:=1 to Ns-1 do If SS[i]<>S[Ns] then begin b:=false; for j:=2 to Length(SS[i]) do if SS[i][j]=SS[i][1] then b:=true; If b then begin WriteLn(SS[i]); Inc(N); end; end; If N=0 then WriteLn('No such words!'); ReadLn; end. 1. Выводу подлежат слова, не повторяющие последнее И (а не ИЛИ!) имеющие в своем составе букву, повторяющую первую. 2. Первая буква может входить в слово и более одного раза (напр. "агава"), такое слово тоже выводится. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
16.12.2010, 23:56 | #6 (permalink) |
Новичок
Регистрация: 15.12.2010
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
спасибо большое
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|