НАПИСАТЬ ПРОГРАММУ ** PASCAL"Дана строка символов S, состоящая максимум из 250 символов....

Question

НАПИСАТЬ ПРОГРАММУ НА PASCAL
"Дана строка символов S, состоящая максимум из 250 символов. Напишите программу, которая проверит является ли строка S палиндромом. Примеры палиндромов: ‘COJOC’, ‘CAZAC’, ‘POTOP’, ‘ROTOR’."

Answer 1

Var
s:string;
l,i:byte;
begin
readln(s);
l := length(s);
for i:= 1 to l div 2 do begin
if s[i] <> s[l-i+1] then begin
writeln('NO');
halt;
end;
end;
writeln('YES');
end.

Comments

НЕ работает!

---

конкретнее.

---

какая ошибка?

---

Program2.pas(13) : Встречено '.', а ожидалось ';'

---

Я добавил еще один end но все равно она не находит палиндромы

---

var
s:string;
l,i:byte;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
readln(s);
l := length(s);
for i:= 1 to l div 2 do begin
if s[i] <> s[l-i+1] then begin
writeln('NO');
halt;
end;
end;
writeln('YES');
close(input);
close(output);
end.

---

переписал, протестил. должно работать.

---

если работаешь в ABC Pascal, вот другой код:

---

var
s:string;
l,i:byte;
begin
readln(s);
l := length(s);
for i:= 1 to l div 2 do begin
if s[i] <> s[l-i+1] then begin
writeln('NO');
halt;
end;
end;
writeln('YES');
end.