М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
KriSha11
KriSha11
23.07.2020 23:35 •  Информатика

Решить на C++ использовать string Задача №112406. Синие и красные
Дана цепочка, состоящая из синих (B) и красных (R) точек. Нужно удалить наименьшее количество синих точек так, чтобы сначала шли только синие, а потом – только красные.

Входные данные
Входная строка содержит только символы 'B' и 'R' без пробелов.

Выходные данные
Нужно вывести полученную цепочку, в которой сначала идут только синие точки, а потом – только красные. Во второй строке нужно вывести количество удалённых синих точек.

Примеры
входные данные
BBBRBRBRR
выходные данные
BBB
2​

👇
Открыть все ответы
Ответ:
arinalapshakova
arinalapshakova
23.07.2020

В Microsoft Office Word 2007 отформатировать таблицу после ее создания можно несколькими Применение стилей таблиц позволяет задать формат сразу для всей таблицы, а также выполнить предварительный просмотр, чтобы заранее увидеть, как будет выглядеть таблица с выбранным стилем форматирования.

Таблицы можно изменять путем разбиения или объединения ячеек, добавления и удаления столбцов и строк, а также рисования. При работе с большими таблицами можно задать отображение заголовка таблицы на каждой из страниц, на которых она выводится. Чтобы исключить непредусмотренные разрывы потока данных в таблице, можно указать, в каких местах должны находиться разрывы страницы.

Объяснение:

4,6(45 оценок)
Ответ:
Uses Crt;
const
  n=10;
var
  a,b:array[1..n] of integer;
  i,k,t:integer;
begin
  ClrScr;
  Randomize;
  for i:=1 to n do begin
    a[i]:=Random(50);
    Write(a[i],' ')
    end;
  Writeln;
  for i:=1 to n do begin
    b[i]:=Random(50);
    Write(b[i],' ')
    end;
  Writeln;
  Write('k t='); Read(k,t);
  for i:=1 to n do begin
    if a[i]>t then a[i]:=a[i]+4;
    Write(a[i],' ')
    end;
  Writeln;
  for i:=1 to n do begin
    if b[i]>10*k then b[i]:=b[i]+k;
    Write(b[i],' ')
    end;
  Readkey
end.

Тестовое решение:
1 6 23 12 47 1 44 24 6 18
31 30 30 29 0 3 43 32 46 21
k t=2 20
1 6 27 12 51 1 48 28 6 18
33 32 32 31 0 3 45 34 48 23
4,5(92 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ