Информатика, опубликовано 2018-08-22 21:43:16 by Гость
Написать программу, которая подсчитывает количество слов в заданной строке, начинающихся и заканчивающихся на одну и ту же букву. (Язык программирования паскале)
Ответ оставил Гость
Program qwerty;var s:string; p,n,i:integer;beginwrite (`введите слово`);readln(s);p:=0;for i:=1 to n:=length(s) div 2if s[i]=s[n-i+1] then p:=1;if p=1 then write(`слово полиндром`) elsewrite(`не полиндром`);readln;end.(не суди за ошибки :D)
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на