07.12.2010, 11:20 | #1 (permalink) |
Member
Регистрация: 07.12.2010
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Строки
|
07.12.2010, 11:20 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Содержание вашего текста имеет много схожего с данными топиками Строки в С Строки Строки Строки |
07.12.2010, 14:12 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
VAR X,Y:STRING; b:Boolean; i,j:BYTE; BEGIN WriteLn('Enter X:'); ReadLn(X); WriteLn('Enter Y:'); ReadLn(Y); If Length(X)<>Length(Y) then b:=false else begin i:=0; Repeat i:=i+1; b:=false; j:=0; repeat j:=j+1; if X[i]=Y[j] then b:=true; until b or (j=Length(X)); Until (b=false) or (i=Length(X)); end; WriteLn(b); ReadLn; END. |
|
07.12.2010, 17:58 | #3 (permalink) |
Member
Регистрация: 07.12.2010
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо большое!!!!!!!!!!!!!!!!!!!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|