Дана стрічка довжини n сантиметрів. Кожен сантиметр може бути або червоним, або синім. Вам потрібно вирізати з цієї стрічки менші стрічки довжини два сантиметри, де один сантиметр червоний, а інший синій. Знайдіть, яку максимальну кількість таких стрічок можна зробити зі стрічки, яка нам дана.
Входные данные
Перший рядок містить рядок s (1≤∣s∣≤10 5).
Якщо i-ий символ B, то це означає, що i-ий сантиметр синій. Якщо ж i-ий символ R, то це означає, що i-ий сантиметр червоний.
Выходные данные
Виведіть одне ціле число.
Введите а: -4
Введите b: 12
! Результат работы а: 8
Введите а: -4
Введите b: 6
! Результат работы б: 22
Введите а: 90
Введите b: 40
! Результат работы в: 70
Объяснение:
С++:
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "RUS");
int a, b, c;
//a
cout << "Введите а: ";
cin >> a;
cout << "Введите b: ";
cin >> b;
b = b + a * 2;
if (a > b)
{
c = a + b;
}
else
{
c = b - a;
}
cout << "Результат работы а: " << c << endl;
//б
cout << "Введите а: ";
cin >> a;
cout << "Введите b: ";
cin >> b;
a = a - b * 2;
if (a <= b)
{
c = b - a;
}
else
{
c = a - b;
}
cout << "Результат работы б: " << c << endl;
//в
cout << "Введите а: ";
cin >> a;
cout << "Введите b: ";
cin >> b;
a = a - b * 3;
if (a>b)
{
c = a - b;
}
else
{
c = b - a;
}
cout << "Результат работы в: " << c << endl;
}
var
a: string;
b: array[1..9]of integer;
sort: boolean;
max, k: integer;
begin
Readln(a);
for var i := 1 to Length(a) do
b[i] := strtoint(a[i]);
sort := false;
while sort = false do
begin
sort := true;
k += 1;
for var i := 1 to Length(a)-1 do
begin
if a[i] < a[i+1] then
begin
sort := false;
var value2 := a[i];
a[i] := a[i+1];
a[i+1] := value2;
end;
end;
end;
write(a[1]);
end.
Программа написана на PascalABC.net
на free pascal или turbo pascal она может не работать