|
|
Опции темы | Опции просмотра |
28.01.2011, 20:51 | #1 (permalink) |
Member
Регистрация: 05.11.2010
Сообщений: 206
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 127
|
Помогите написать программу, которая бы подсчитывала количество слов-перевёртышей
|
28.01.2011, 20:51 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Возможно ответы найденные в этих темах вам помогут Помогите написать программу Написать программу, которая считывает текст из файла и выводит на экран предложения Помогите написать программу Нужно написать программу, которая переводит числа в различные сс |
29.01.2011, 13:22 | #5 (permalink) |
Member
Регистрация: 05.11.2010
Сообщений: 206
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 127
|
строка
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
29.01.2011, 17:32 | #6 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Тогда - пожалуйста:
Код:
VAR S,S1,S2:String; i,i1,i2,N,j:Byte; BEGIN WriteLn('Enter the string:'); ReadLn(S); WriteLn; N:=0; i:=0; Repeat Repeat Inc(i); Until S[i]<>' '; i1:=i; Repeat Inc(i); Until (S[i]=' ') or (i=Length(S)); If S[i]=' ' then i2:=i else i2:=i+1; S1:=Copy(S,i1,(i2-i1)); S2:=S1; For j:=1 to Length(S1) do S2[Length(S1)-j+1]:=S1[j]; If S1=S2 then begin Write(S1+' '); Inc(N); end; Until i=Length(S); WriteLn; WriteLn(N,' words'); ReadLn; END. |
29.01.2011, 21:00 | #7 (permalink) |
Member
Регистрация: 05.11.2010
Сообщений: 206
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 127
|
спасибо большое!!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|