tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Другие предметы
Дана строка. Найти в ней те
Дана строка. Найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой. (программа Паскаль)
hekaterina0606
3 16.04.2019 23:00
18
Ответы
1939346
16.04.2019 23:00
const sn=[' ','.',',','!','?'];
var s,slovo:string;
i:integer;
begin
readln(s);
slovo:='';
if not (s[length(s)] in sn) then
s:=s+' ';
for i:=1 to length(s) do begin
if not (s[i] in sn) then
slovo:=slovo+s[i]
else begin
if slovo[1]=slovo[length(slovo)] then
writeln(slovo);
slovo:='';
end;
end;
readln
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Другие предметы
bika20679
26.09.2021 10:41
об єднатися у чотири групи літо осінь зима весна назвіть характерні ліцей сезонні несприятливі погодні умови зливу ожеледиця туман Хуртовина які небезпеки для життя і здоров я людей...
bestgad
26.09.2021 10:42
Тарифы за электроэнергию по трехтарифному счетчику для квартир, оборудованных электрическими плитами, составляют: 1-й тариф - 4 руб. 85 коп. за 1 кВт-ч с 7.00 до 10.00 часов и с 17.00...
алина3851
18.11.2019 14:11
Каким стандартом тестом проверяется быстрота учения школ...
nikitaoksin201
18.11.2019 14:10
Черчение ! начертить на рис.62 виды перед низ задний в маcштабе m: 2: 1...
NastyaAnaNastya
18.11.2019 14:04
Какие потребности есть у человека...
BlaBla1aquamarine
11.09.2019 05:00
Какой объем гидроген хлорида можно добыть из кухонной соли массой 29,25г детальное решение...
dasha21k2
11.09.2019 05:00
При каких значениях b уравнение имеет два корня 1)5x^2-4x+3b=0 2)x^2+bx+5=0...
полина2125
11.09.2019 05:00
Выпишите слово на орфограмму правописание с/з на конце приставок было это ранней зимой, а по весне колька приволокся на глухое озеро пострелять уток. бойе обежал лесом озеро но мелкому...
ТупицаТян
11.09.2019 05:00
Придумайте предложение со словом состязание...
cvetlana15a
11.09.2019 05:00
1671 события итог ? ( восстание степана разина )...
Популярные вопросы
Здравствуйте ответить по Биологии вопросы .П 35 Выделение у растений и животных...
2
2-8×0,5 = 40 : (-16) 6 класс...
2
в арифметической прогрессии а1=5 , d=3 Найти а21...
1
Блестящ врач встреч горяч доч карандаш ключ малыш мелоч могуч муж мяч ноч печ реч...
2
Сочинение на тему:какие качества проявил Костылин...
3
В теплоизолированный сосуд объёма V=44,8 дм3, содержащий 2 моля гелия при температуре...
1
решить напишите правильный ответ с РЕШЕНИЕМ...
2
Составьте 10 советов на английском языке (5+,5-)...
1
Naruto789 132+222:2=сколько...
2
Как казак тилисросно нужно >...
2
var s,slovo:string;
i:integer;
begin
readln(s);
slovo:='';
if not (s[length(s)] in sn) then
s:=s+' ';
for i:=1 to length(s) do begin
if not (s[i] in sn) then
slovo:=slovo+s[i]
else begin
if slovo[1]=slovo[length(slovo)] then
writeln(slovo);
slovo:='';
end;
end;
readln
end.