Вопрос по информатике:
Из текста удалить слова, начинающиеся и оканчивающиеся на одну и ту же букву.(Паскаль)
- 11.09.2018 05:44
- Информатика
- remove_red_eye 5513
- thumb_up 19
Ответы и объяснения 1
//Pascal ABC.NET v3.1 сборка 1217
Var
s,s1:string;
i:integer;
begin
readln(s);
var ars:=s.ToWords;
for i:=0 to ars.length-1 do
if lowcase(ars[i][1])lowcase(ars[i][length(ars[1])]) then s1:=s1+ars[i]+' ';
writeln(s1);
end.
Пример ввода:
Мама окно рама
Пример вывода:
Мама рама
- 12.09.2018 09:26
- thumb_up 46
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.