В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Kto6to
Kto6to
11.02.2021 16:29 •  Информатика

Алан сильно любит решать по программированию и играть шахматы. в обоих сферах он хочет преуспеть, стать легендарным гроссмейстером. айдос как опытный тренер предложил ему у него потренироваться.

у айдоса определенное расписание на каждый из следующих n дней. в каждый из дней айдос тренирует только один вид, либо программирование, либо шахматы. алан хочет выбрать несколько подряд идущих дней для тренировки. также алан заметил, что если два дня подряд тренироваться в одной и той же сфере, то он устает, т.е. алану надо чередовать шахматы и программирование. алану выбрать максимальное количество подряд идущих дней так, чтобы он за этот период не устал тренироваться.

формат входного файла

первая строка входных данных содержит целое цисло n (1< =n< =2*1) — количество тренировочных дней у айдоса. вторая строка содержит n цифр 0 или 1 без пробелов —i-я цифра 0 если в i-й день айдос тренирует программирование, иначе айдос тренирует шахматы.

формат выходного файла

выведите одно число — максимальное количество подряд идущих тренировочных дней для алана.

Показать ответ
Ответ:
newsergy81
newsergy81
04.03.2021 10:47
Информационная деятельность - это совокупность действий, направленных на удовлетворение информационных потребностей граждан, юридических лиц и государства.
В целях удовлетворения этих потребностей органы государственной власти и органы местного и регионального самоуправления создают информационные службы, системы, сети, базы и банки данных.
Порядок их создания, структура, права и обязанности определяются Кабинетом Министров Украины или другими органами государственной власти, а также органами местного и регионального самоуправления.
0,0(0 оценок)
Ответ:
evgenijpetrov
evgenijpetrov
08.03.2023 07:22
Vara,b,c,d,x1,x2: real;
begin
writeln('Дано уравнение вида ax^2+bx+c=0');
Writeln ('Укажи переменную "a"');
readln(a);
Writeln ('Укажи переменную "b"');
readln(b);
Writeln ('Укажи переменную "c"');
readln(c);
if a = 0
 then writeln('Не квадратное уравнение!')
 else begin
      d:= sqr(b)-4*a*c;
      if d < 0 then writeln('Нет корней')
               else begin
                    x1:= (-b+sqrt(d))/2*a;
                    x2:= (-b-sqrt(d))/2*a;
                    writeln ('X1 =',x1,'  X2 =',x2);
                    end;
      end;
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота