Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Паскаль.Введите с клавиатуры фразу, например «Мама мыла раму, а Маша ела кашу». Поменяйте местами части предложения, стоящие до запятой и после союза «а». Например: «Маша ела кашу, а мама мыла раму». Задайте исходной и полученной фразе разный цвет текста.

Ответ оставил Гость

// PascalABC.NET 3.0,сборка 1073
uses GraphABC;

const
  ss=, а ;
var
  s:string;
  p,q:integer;
begin
  Writeln(Введите фразу:); Readln(s);
  p:=Pos(ss,s);
  if p=0 then Writeln(Во фразе нет контекста ",ss,")
  else begin
    q:=p+Length(ss);
    Window.Title:=Выводим в цвете!;
    SetFontSize(14);
    SetFontColor(clBlue);
    Writeln(s);
    SetFontColor(clRed);
    Writeln(Copy(s,q,Length(s)-q+1)+ss+Copy(s,1,p-1))
  end
end.

Пример работы программы во вложении.