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

Ответы 1

  • // PascalABC.NET 3.0,сборка 1073uses 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))  endend.Пример работы программы во вложении.
    answer img
    • Автор:

      kato
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years