Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Vil67
29.07.2020 08:15 •
Информатика
Из текста удалить слова, начинающиеся и оканчивающиеся на одну и ту же букву.(паскаль)
Показать ответ
Ответ:
artemka2200a
31.08.2020 06:57
//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.
Пример ввода:
Мама окно рама
Пример вывода:
Мама рама
0,0
(0 оценок)
Популярные вопросы: Информатика
kayseriliadige
07.09.2020 04:33
Для десятичных чисел 341; 125; 1024; 4095 выполнить перевод в двоичную систему счисления полное решение...
Snyezha
07.09.2020 04:33
Назовите базовые сервисы интернета . это...
63344667876763823947
31.10.2022 14:50
Файл размером 300 кбайт передаётся через некоторое соединение со скоростью 192 бит в секунду. определите размер файла (в кбайт), кото-рый можно передать за то же...
mohammadroshann
31.10.2022 14:50
Составить краткое сообщение об основной позиций пальцев на клавиатуре .по информатике задали 5класс...
llboyn
30.01.2022 19:31
По информатике что такое диаграмма? назовите основные элементы области диаграммы и их назначение? назовите основные типы диаграмм. в чем преимущества и недостатки...
герман78
30.01.2022 19:31
Выполнить указанные переводы из одной системы в другую 1)90(10)=x(2) 2)108(10)=x(8) 3)69(10)=x(16)...
craisler320
03.05.2023 16:02
Груши, содержащие 60% воды, потеряли при сушке 50 % своей массы. сколько процентов воды содержат сушеные груши?...
andreyBublik
03.05.2023 16:02
Складіть речення зі словом м який у переносному значенні....
Аааааяяяяяннннн
03.05.2023 16:02
1. какова напряжённость электрического поля в воздухе на расстоянии 3 см от заряда 2нкл ? 2. при введении в пространство между пластинами воздушного конденсатора...
taylakova090820
03.05.2023 16:02
Вкажіть речовини що є необхідними для здійснення перетворення хімічних рівнянь al- al2o3- al2(so4)3 - al(oh)3 - alcl3 - nah2alo3...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.
Пример ввода:
Мама окно рама
Пример вывода:
Мама рама