Слова-перевертыши

@ButterflyOnAFir · Регистрация: 27.12.2011

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

С клавиатуры вводится слово. Определить, является ли оно «перевертышем», то есть читается одинаково слева направо и справа налево.

@Das Gespenst · 13.06.2012, 21:27

Лови

Pascal

program z;
var s,s1:string; i:integer;
begin
     writeln('Введите слово маленькими буквами');
     readln(s);
     s1:='';
     for i:=length(s) downto 1 do
     s1:=s1+copy(s,i,1);
     writeln(s1);
     if s=s1
     then
         writeln('Слово перевертышь')
     else
         writeln('Слово не перевертышь')
end.

@ButterflyOnAFir · 13.06.2012, 21:28 **[ТС]**

Спасиииибо ^^

@henry14 · 05.06.2013, 08:19

в javascript скиньте пожалуйста

@Striker · 05.06.2013, 08:42

Сообщение от henry14

в javascript скиньте пожалуйста

Разделом ошиблись.

@ButterflyOnAFir 1 / 1 / 0 Регистрация: 27.12.2011 Сообщений: 34
		1
	Слова-перевертыши 13.06.2012, 20:54. Показов 2949. Ответов 4 Метки нет (Все метки) С клавиатуры вводится слово. Определить, является ли оно «перевертышем», то есть читается одинаково слева направо и справа налево. 0

@ButterflyOnAFir 1 / 1 / 0 Регистрация: 27.12.2011 Сообщений: 34
	13.06.2012, 21:28 [ТС]	3
	Спасиииибо ^^ 0

@henry14 0 / 0 / 0 Регистрация: 23.05.2013 Сообщений: 31
	05.06.2013, 08:19	4
	в javascript скиньте пожалуйста 0

@Striker SausageFlat 242 / 221 / 154 Регистрация: 19.08.2012 Сообщений: 499 Записей в блоге: 1
	05.06.2013, 08:42	5
	Сообщение от henry14 в javascript скиньте пожалуйста Разделом ошиблись. 0