Написать программу, которая подсчитывает количество слов в заданной строке, начинающихся и

Написать программку, которая подсчитывает количество слов в данной строке, начинающихся и кончающихся на одну и ту же буковку.
(Язык программирования паскале)

Задать свой вопрос
1 ответ
Program qwerty; var s:string; p,n,i:integer; begin write (введите слово);readln(s); p:=0; for i:=1 to n:=length(s) div 2 if s[i]=s[n-i+1] then p:=1; if p=1 then write(слово полиндром) else write(не полиндром); readln; end. (не суди за ошибки :D)
Денис Жатиков
это четкое решение?
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт