Информатика, опубликовано 2018-08-22 22:37:02 by Гость
Проверить является ли введенное слово перевертышем? Написать программу в Паскале!
Ответ оставил Гость
Vari,n,k:integer;
s:string;
beginreadln(s);
n:=length(s);
for i:=1 to n div 2 do
if s[i]=s[n-i+1]then
k:=k+1;
if k=n div 2 then
writeln(y)
else
writeln(n);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на