Question

Дана последовательность содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 строчных латинских букв,между соседними словами-запятая, за последним словом- точка. вывести эту же последовательность слов, но в обратном порядке. pascal abc

Answer 1

Привет, давай разберем этот вопрос!

В начале задачи сказано, что у нас есть последовательность слов. Давай посмотрим на эту последовательность слов:

"pascal, abc."

Мы видим, что после каждого слова есть запятая, а после последнего слова стоит точка. Наша задача - вывести эту последовательность слов в обратном порядке.

Для решения этой задачи, нам необходимо разделить строку на отдельные слова, используя запятые в качестве разделителей.

Получив список слов, мы можем просто перевернуть его и вывести обратно, добавив запятые и точку.

Давай напишем код для этого решения на языке Паскаль:

```pascal
program ReverseWords;
var
inputString, reversedString: String;
words: array of String;
i: Integer;
begin
inputString := 'pascal, abc.';
reversedString := '';

// Разделяем строку на отдельные слова и добавляем их в массив
words := inputString.Split([',', ' ']);

// Проходим по списку слов в обратном порядке и добавляем их в новую строку
for i := Length(words) - 1 downto 0 do
begin
// Если это последнее слово, то добавляем точку вместо запятой
if i = 0 then
reversedString := reversedString + words[i] + '.'
else
reversedString := reversedString + words[i] + ', ';
end;

// Выводим полученную строку в обратном порядке
writeln(reversedString);

// Ждем, пока пользователь нажмет Enter, чтобы закрыть программу
readln;
end.
```

Теперь, когда мы запустим эту программу, она разделит строку "pascal, abc." на отдельные слова "pascal" и "abc.", затем перевернет их и выведет обратно в виде "abc., pascal".

Надеюсь, это решение помогло тебе понять, как перевернуть последовательность слов! Если у тебя возникли дополнительные вопросы, не стесняйся задавать. Я всегда готов помочь!