Патрикеевич
7 год назад
НАПИСАТЬ ПРОГРАММУ НА PASCAL
"Дана строка символов S, состоящая максимум из 250 символов. Напишите программу, которая проверит является ли строка S палиндромом. Примеры палиндромов: ‘COJOC’, ‘CAZAC’, ‘POTOP’, ‘ROTOR’."
ОТВЕТЫ
Beilapbya
Jul 19, 2019
Var
s:string;
l,i:byte;
begin
readln(s);
l := length(s);
for i:= 1 to l div 2 do begin
if s[i] lt;gt; s[l-i+1] then begin
writeln(NO);
halt;
end;
end;
writeln(YES);
end.
s:string;
l,i:byte;
begin
readln(s);
l := length(s);
for i:= 1 to l div 2 do begin
if s[i] lt;gt; s[l-i+1] then begin
writeln(NO);
halt;
end;
end;
writeln(YES);
end.
14
Смежные вопросы:
