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

Задача B Светошоу Тип задачи:
Максимальное время работы на одном тесте: Максимальный объем используемой памяти: Максимальная оценка:
За каждую дополнительную попытку:
Задача по программированию 2 секунды
64 мегабайта

10 штрафных
Юный хакер Павловкин просто обожал систему умного дома RazanСleverHome3000, которую установили его родители. Система была невероятно умна и обладала широким функционалом, но больше всего Павловкина привлекала возможность включать и выключать свет в любой из N комнат его квартиры. Конечно, родители не разрешали ему баловаться с освещением, и на панели управления домом всегда стоял сложный пароль. Впрочем, сложности пароля не хватило, чтобы остановить Павловкина, и он всё же получил полный доступ к системе. Теперь, юный гений хочет воплотить в реальность давно запланированное им светошоу.
Светошоу состоит из M последовательно выполняемых действий, каждое из которых представляет из себя либо включение, либо выключение света в какой-нибудь комнате (не важно, какой). Шоу сорвётся и Павловкину станет очень грустно, если в какой-то момент окажется, что ему пора включить свет в какой-то комнате, а во всех комнатах он уже горит, или, наоборот, если ему нужно будет потушить свет, а во всех комнатах уже темно. Поэтому, он просит вас ему и написать программу, которая проверит, сможет ли он довести своё шоу до конца. Родители Павловкина — люди экономные, поэтому в начале шоу свет во всех комнатах выключен.
Формат входных данных
В первой строке входных данных вводятся два числа N и M (1 ≤ N, M ≤ 10000) — количество комнат в квартире Павловкина и количество действий в светошоу соответственно. В следующих M строках содержатся команды двух видов:
● «Lights up» — включить свет в какой-нибудь комнате
● «Lights out» — выключить свет в какой-нибудь комнате
Формат выходных данных
Ваша программа должна вывести единственную строку «Yeah», если Павловкин сможет довести своё шоу до конца и «No way», если это невозможно.
Пример
Пример входных данных
Пример выходных данных
26
Lights up Lights up Lights out Lights up Lights out Lights out
Yeah

👇
Открыть все ответы
Ответ:
камаз9
камаз9
02.08.2020

[any] Pascal: (без хранения введённых чисел => "эффективная")

var a, i, x: integer; begin  for i := 1 to 6 do  begin    read(a);    if a>0 then x := x + 1    else if a<0 then x := x - 1  end;  if x>0 then write('Больше положительных')  else if x<0 then write('Больше отрицательных')  else write('Одинаково')end.

PascalABC.NET: (с хранением введённых чисел в массиве)

## var a := ReadArrInteger(6); var x := a.Sum(x -> x>0 ? 1 : -1); if x=0 then Write('Одинаково') else Print('Больше', x>0 ? 'положительных' : 'отрицательных')

Пример работы:


Паскаль. 8 класс. даны 6 чисел. каких чисел больше - положительных или отрицательных? !
Паскаль. 8 класс. даны 6 чисел. каких чисел больше - положительных или отрицательных? !
Паскаль. 8 класс. даны 6 чисел. каких чисел больше - положительных или отрицательных? !
4,7(19 оценок)
Ответ:
чина22
чина22
02.08.2020
//PascalABC.Net 3.2
{1}
begin
var a:=readArrinteger('Вводите: ', readinteger('n ='));
write ('Ср. арифметическое: ', a.Average);
end.

{2}
begin
var a:=readarrinteger('Водите: ', readinteger('n ='));
var sum:=0;
for var i:=0 to length(a)-1 do if i.isodd then sum+=a[i];
write ('Сумма: ', sum);
end.

{3}
begin
var a:=readarrinteger('Вводите: ', readinteger('Кол-во элементов: '));
var otr:=0; var pol:=0;
for var i:=0 to length(a)-1 do if a[i]<0 then otr+=1 else pol+=1;
write('Массив: '); a.Println;
if otr=pol then write ('Отрицательных и положительных элементов равное кол-во') else 
if otr>pol then write('Отрицательных больше на ', otr-pol) else
write ('Положительных больше на ', pol-otr);
end.
4,7(97 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ