Question

Дан текст, слова которого отделяются друг от друга пробелами. Если первая буква второго слова совпадает с последней буквой третьего слова, то поменять местами второе и третье слова. В противном случае текст оставить без изменения. Распечатать исходный и полученный тексты.(Паскаль)

Answer 1

Ответ:

#include <iostream>

using namespace std;

int main() {

string n = "";

char k;

int l = 0;

cin >> n >> k;

for (int i = 0; i < n.size(); ++i){

 if (n[i] == k)

  ++l;

}

cout << l;

return 0;

}

Answer 2

Вот пример кода на Pascal, который выполняет описанную вами задачу:

pascalCopy code
program SwapWords;

var
  text, originalText, modifiedText: string;
  words: array of string;
  i: integer;

begin
  // Ввод текста
  writeln('Введите текст:');
  readln(text);
  
  // Сохраняем исходный текст
  originalText := text;
  
  // Разбиваем текст на слова
  words := text.Split(' ');
  
  // Проверяем, можно ли поменять местами второе и третье слово
  if (length(words) >= 3) and (words[2][1] = words[3][length(words[3])]) then
  begin
    // Меняем местами второе и третье слово
    words[2] := words[3];
    words[3] := text.Split(' ')[2];
    
    // Собираем измененный текст
    modifiedText := string.Join(' ', words);
    
    // Выводим исходный и измененный текст
    writeln('Исходный текст: ', originalText);
    writeln('Измененный текст: ', modifiedText);
  end
  else
  begin
    // Если не можем поменять местами, оставляем текст без изменений
    writeln('Текст остается без изменений: ', originalText);
  end;
end.

Этот код сначала считывает введенный текст, затем разбивает его на слова. Затем он проверяет условие: если первая буква второго слова совпадает с последней буквой третьего слова, то меняет местами эти два слова и выводит исходный и измененный текст. Если условие не выполняется, текст остается без изменений.