Задача. Проверить, является ли введённое слово перевёртышем.

Question

Задача. Проверить, является ли введённое слово перевёртышем.

Comments

Какое число называют перевёртышем ?

---

Дано слово. Является ли оно перевертышем? - тоже самое условие задачи

---

Хорошо , тогда спрошу так . Чем перевертыш отличается от все остальных чисел ?

---

Читается и с конца и с начала одинаково пример ШАЛАШ

---

Ой , я все про числа , а у вас слово . Сейчас что то придумаю.

Answer 1

Var s:string;
i:integer;
begin
writeln('Vvedite slovo');
readln(s);
for i:=1 to length(s) do
if s[i]<>s[length(s)+1-i] then break
else if i=length(s) then writeln('da');
if i<>length(s) then writeln('net');
end.

Answer 2

Var
 s:string;
 i,j,n,m,k:longint;
begin
 readln(s);
 j:=length(s);
 for i:=1 to length(s) div 2 do
 begin
  if s[i]<>s[j] then 
 begin
  wrtieln('Слово не является перевертышем');
  halt; 
 end;
 dec(j);
end;
writeln(' Слово является перевертышем ');
end.
 

Comments

спс

---

что такое N ?