Помогите, пожалуйста, вообще не понимаю эту информатику! Отдаю 30 баллов!

Question

Помогите, пожалуйста, вообще не понимаю эту информатику! Отдаю 30 баллов!

---

Comments

Задание б?

Answer 1

И правда, зачем так длинно? ))))

// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString;
  if s=s.Inverse then Writeln('Перевертыш')
  else Writeln ('Нет')
end.

Answer 2

Var a:string[255];
k,i,d,c:integer;
Begin
read (a);
k:=1;
d:=length(a);
If (d mod 2)=1 then
c:=(d div 2)+1 else c:=c div 2; //Центральная цифра
For i:=1 to c do
   If a[i]=a[d-i+1] then k:=k*1 else k:=k*0;  //k определяет одинаковые числа
If k=0 then Writeln ('Нет') else Writeln ('Перевертыш');
end.

Comments

Зачем так сложно?

---

Var
a:string;
k,i,d:integer;
Begin
read(a);
k:=1;
d:=Length(a);
For i:=1 to d div 2 do
If a[i]<>a[d-i+1] then k:=0;
If k=0 then Writeln ('Нет') else Writeln ('Перевертыш');
end.

---

Так гораздо проще, хотя смысл не меняется. Ваша программа, кстати, не скомпилится...

---

Согласен, небольшие ошибки подправил, из-за спешки решения не учел более короткий алгоритм решения. Спасибо за внимание.

---

А теперь в ответе исправьте, чтобы программа хотя бы скомпилировалась.

---

Спасибо!