02.11.2011, 19:18 | #1 (permalink) |
Member
Регистрация: 08.10.2011
Сообщений: 49
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Палиндром, Pascal
|
02.11.2011, 19:18 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Схожие темы иногда очень хорошо помогают в решении проблемы Pascal Pascal Pascal |
02.11.2011, 19:53 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Например, так:
Код:
var s:string; i:byte; b:boolean; begin write('N= '); readln(s); b:=true; i:=0; Repeat Inc(i); If s[i]<>s[Length(s)-i+1] then b:=false; Until (Not(b)) or (i=(Length(s) div 2)); If b then Writeln('Yes!') else Writeln('No!'); readln end. |
06.11.2011, 16:59 | #3 (permalink) |
Member
Регистрация: 08.10.2011
Сообщений: 49
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо большое!!!!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|