В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
jhgtreedhhuuu
jhgtreedhhuuu
03.04.2021 02:23 •  Информатика

Очень Очень задание . Сделать это задание в Pascal. ABC с оператора if . Подробно и понятно расписать ​


Очень Очень задание . Сделать это задание в Pascal. ABC с оператора if . Подробно и понятно расписат

Показать ответ
Ответ:
mikhdina24
mikhdina24
21.01.2021 23:51

PascalABC.NET

begin  var (key, chrs) := ('сла', ',!?.');  var s := ReadString;  foreach var w in s.Split(' ') do    if w[^1] in chrs then      Print(w[:^1] + key + w[^1])    else Print(w + key)end.

Объявляем переменные key и chrs. Присваиваем переменной key значение 'сла' – это кодовые символы, которые должны прибавляться к каждому слову, а переменной chrs – ',!?.' – это символы, заданные в условии задания в качестве возможных знаков препинания.

Объявляем переменную s, присваиваем ей строку, полученную в результате ввода с клавиатуры, с стандартного метода ReadString.

Далее идёт конструкция foreach, пробегаем по массиву, полученного в результате разбивки строки s на некие подстроки, используя пробел в качестве разделителя.

Для каждого элемента (условно обозначенного как w) делаем:

Если последний символ элемента входит в состав символов, указанных в переменной chrs, то выводим на экран все символы обозреваемого элемента, кроме последнего + кодовые символы (key) + этот последний символ. То есть, вставляем наши кодовые символы между словом и знаком препинания.Иначе, если последний символ элемента не входит в состав символов, указанных в переменной chrs, то выводим на экран сам этот элемент + кодовые символы. То есть, знака препинания нет и мы просто добавляем наши кодовые символы к слову.

Опять же стандартный метод – Print, автоматически добавляет пробел после вывода каждого значения (в нашем случае оно одно).


Очень Очень задание . Сделать это задание в Pascal. ABC с оператора if . Подробно и понятно расписат
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота