Определить, является ли данный текст палиндромом

@Marionetka · Регистрация: 27.11.2016

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

Дана строка символов, содержащая некоторый текст. Разработать программу, которая определяет, является ли данный текст палиндромом, т. е. читается ли он слева направо так же, как и справа налево (например, "А роза упала на лапу Азора")

@ArtemStark · 04.12.2016, 19:59

Осталось дополнить чтобы считал несколько слов.

Pascal

program polindrom;
uses crt;
var
news,s:string;
i:integer;
begin
writeln('Введите слово');
readln(s);
for i:=length(s) downto 1 do begin
news:=news+s[i];
end;
if s=news then writeln('Слово является полиндромом')
 else writeln('Слово не является полиндромом');
end.

@Marionetka 0 / 0 / 0 Регистрация: 27.11.2016 Сообщений: 5
		1
	Определить, является ли данный текст палиндромом 04.12.2016, 19:38. Показов 2110. Ответов 1 Метки нет (Все метки) Дана строка символов, содержащая некоторый текст. Разработать программу, которая определяет, является ли данный текст палиндромом, т. е. читается ли он слева направо так же, как и справа налево (например, "А роза упала на лапу Азора") 0

	04.12.2016, 19:59

Определить, является ли данный текст палиндромом

Решение