Из текста удалить слова, начинающиеся и оканчивающиеся на одну и ту же букву.(Паскаль)
Из текста удалить слова, начинающиеся и оканчивающиеся на одну и ту же букву.(Паскаль)
Гость
Ответ(ы) на вопрос:
Гость//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.
Пример ввода:
Мама окно рама
Пример вывода:
Мама рама
Не нашли ответ?
Похожие вопросы