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

Пример программы на PascalABC.NET:

uses crt;

function LowerFirst(s: string): string;
begin
  if Length(s) = 0 then
    Result := s
  else
    Result := LowerCase(Copy(s, 1, 1)) + Copy(s, 2, Length(s));
end;

var
  s, firstPart, secondPart, tail, resultText: string;
  p: integer;

begin
  Writeln('Введите фразу:');
  Readln(s);

  p := Pos(',', s);

  firstPart := Trim(Copy(s, 1, p - 1));
  tail := Trim(Copy(s, p + 1, Length(s)));

  if Pos('а ', tail) = 1 then
    secondPart := Trim(Copy(tail, 3, Length(tail)))
  else
    secondPart := tail;

  resultText := secondPart + ', а ' + LowerFirst(firstPart);

  TextColor(Yellow);
  Writeln('Исходная фраза: ', s);

  TextColor(LightGreen);
  Writeln('Полученная фраза: ', resultText);

  TextColor(White);
end.

Если ввести фразу «Мама мыла раму, а Маша ела кашу», программа выведет: «Маша ела кашу, а мама мыла раму».

0 0 Пожаловаться