Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
linagalkinaa
18.07.2021 16:17 •
Информатика
За ранее ! дан текст состоящий из нескольких слов : вывести на экран слова заканчивающиеся на букву я.)
Показать ответ
Ответ:
elenasypchenkop00npz
02.10.2020 23:54
Var s,s1:string; p:integer;
begin
writeln('Введите строку:');
readln(s);
s1:=s+' ';
while s1<>'' do
begin
p:=pos(' ',s1);
if (p>1)and(s1[p-1]='я') then writeln(copy(s1,1,p-1));
delete(s1,1,p);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ba4Ka
18.08.2022 22:59
Перевести два трёхзначных числа, в двоичную, восьмеричную, шестнадцатиртчную и поверить...
Ahela007
18.08.2022 22:59
Найти в обычном режиме работы калькулятора значение выражения, используя память компьютера: (5,9+2327)/(3,8+9,1-2,9)*16...
snezhanabaracov
01.06.2020 12:55
Перечислите достоинства видеосвязи с сети Интернет для общения друг с другом? 2. В каких направлениях возможно взаимодействие собеседников при организации видео-веб-сессий....
azia2995
18.08.2022 01:46
Что необходимо для эффективной работы видеотелефонии? 2. Как проверить наличие встроенной веб-камеры на компьютере? 3. Какие преимущества организации веб-сессии в популярной...
pirmnastia
12.02.2022 05:28
В ячейке А1 хранится число 20, в ячейке B1 хранится формула =A1/2. Чему будет равно значение ячейки С1, если в нее ввести формулу =А1+B1: А) 30 Б) 20 В) 10...
amanullina
24.07.2022 18:48
Как сделать так, чтобы введённые числа по модулю не превышали 30000 (язык паскаль)?...
ksenia376
25.08.2021 08:23
Вопрос 3 Мастер диаграмм может выполнять шаги: Варианты ответов тип и вид диаграммы источник данных диаграммы вставка рисунка для оформления параметры диаграммы...
sirius830
07.04.2022 00:27
Вопрос 2 Для круговой диаграммы выделить: Варианты ответов Шапку. Боковик таблицы. Один столбец чисел. Несколько столбцов с числами....
варвора
03.08.2021 16:39
30. Тег языка программирования HTML означает: 1) Создание простой формы 2) Сохранение пробелов 3) Данные ячеек таблицы 4) Количество строк таблицы...
FunGamer741
17.03.2020 12:20
Расшифровать код 1CMHM0YW hVQWgxQQ== Должны быть русские буквы, а точнее название автошколы. Рассказать как делали это...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
writeln('Введите строку:');
readln(s);
s1:=s+' ';
while s1<>'' do
begin
p:=pos(' ',s1);
if (p>1)and(s1[p-1]='я') then writeln(copy(s1,1,p-1));
delete(s1,1,p);
end;
end.