Ly3577
30.08.2021 17:22

Сеня как-то красил окна в широком одноэтажном доме — со стороны этот дом выглядит как N стоящих друг за другом окон. Изнутри дом состоит из квартир: каждая квартира — это некоторый непрерывный отрезок окон, причём каждое окно принадлежит ровно одной квартире. У Сени была краска только двух цветов: цвета «a» и цвета «b». Сеня знал про каждое окно, к какой квартире оно относится, и покрасил окна так, чтобы у каждой квартиры все окна стали одинакового цвета, а цвета окон соседних квартир различались.
Когда Сеня закончил свою работу, вечером мимо этого дома проходил его друг Витя. Витя увидел, что в некоторых окнах горит свет, а в других окнах — не горит. Витя зарисовал, в каких окнах горит свет, и показал эту схему Сене. Теперь Витя с Сеней хотят понять: сколько в доме квартир, у которых свет горел во всех окнах?
Исходные данные
В первой строке вводится целое число N — количество окон в доме (1 ≤ N ≤ 100 000).
Во второй строке вводится последовательность букв «a» и «b» длины N — цвета окон. Смена одной буквы на другую обозначает конец одной квартиры и начало следующей.
В третьей строке вводится последовательность символов «.» (точка) и «#» (диез) длины N — схема Вити в том же порядке: точка обозначает, что свет в соответствующем окне не горит, диез — что горит.
Результат
Выведите единственное целое число — у какого количества квартир свет горит во всех окнах.
Пример
исходные данные результат

6
abbaab
.##.##

2

Система оценки и описание подзадач
Тесты в этой задаче разбиты на 6 групп. за группу начисляются при прохождении всех тестов этой и всех необходимых групп. Пример из условия не оценивается.
Problem illustration

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Elizabetsimmer
15.05.2022 01:45

1.y=m1*m2/Sqr(r)

2. Program my;

var S,a,b,h:real;

begin

write('Введите длины оснований и высоты');

readln(a,b,h);

S:=(a+b)*h/2;

readln(S);

end.

3. Program my;

var a:integer;

begin

writeln('Введите трехзначное число');

readln(a);

If (a mod 10=7) then write('Данное число заканчивается на 7');

else write('Данное число не заканчивается на 7');

end.

4.Program my;

var a,b,:integer;

begin

readln(a,b);

If (a>b) then writeln(Sqr(a), b+10);

If (a=b) then writeln('Числа равны');

If (a<b) then writeln(Sqr(b), a+10);

end.

5. 

Program my;
var a,b,c:integer;
begin
Readln(a,b);
For c:=a to b do
if (c mod 10=0) then
writeln (c);
end.

 

0,0(0 оценок)
Ответ:
vikaberg
15.05.2022 01:45
1) а) на Java
class example{
    public static void main (String[] args){
        int k = 0, j = 0;
        for (int i = 0; i < 10; i++){
            k = k + 5;
            j = j + k;
            if (i == 9)
            System.out.print(k);
            else
            System.out.print(k + " + ");
        }
        System.out.print(" = " + j);
    }
}
б) на Pascal
var a,b,c:integer;
begin
for a:=1 to 10 do
begin
b:=b+5;
c:=c+b;
if (a = 10) then write(b)
else write(b, ' + ')
end;
write(' = ', c);
end.
2) а) на Java
class example{
    public static void main(String args[]){
        for (int x = 50; x >= 40; x--){
        double y = (5 * x) + (Math.pow(x, 2));
        int i = (int) y;
        System.out.println(i);
        }
    }
}
б) на Pascal
var y:real;
x:integer;
begin
for x:=50 downto 40 do
begin
y:=(5*x)+sqr(x);
writeln(y:0:0);
end;
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота