В ПАСКАЛЕ. строка содержит одно слово. является ли оно палиндромом? ПОМОГИТЕ ПЛИЗ!
В ПАСКАЛЕ.
строка содержит одно слово. является ли оно палиндромом?
ПОМОГИТЕ ПЛИЗ!
Гость
Ответ(ы) на вопрос:
Гостьvar
s: string;
i: integer;
begin
read(s);
s := trim(s);
for i := 1 to length(s) div 2 do
if s[i] <> s[length(s) - i + 1] then begin
writeln('Не палиндром');
exit;
end;
writeln('Палиндром');
end.
Не нашли ответ?
Похожие вопросы