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

с задачей на Питоне или С++. Думаю, нужно использовать формулу суммы углов выпуклого многоугольника: 180 * (n - 2) Пытался решить перебором по разному, выдаёт Тайм Лимит.

Сама задача:
Даны углы. Определите, какое максимальное кол-во углов из них можно взять, чтобы составить выпуклый многоугольник.

Входные данные
Первая строка содержит целое число
N (3 ≤ N ≤ 100) — количество углов
Вторая строка содержит
N целых чисел Ai (1 ≤ Ai ≤ 179) — величины углов в градусах.

Выходные данные
Выведите одно целое число - ответ на задачу. Если многоугольник невозможно сконструировать из имеющихся углов — выведите 0.

Примеры
входные данные
3
90 60 30
выходные данные
3
входные данные
4
179 1 90 18
выходные данные
0

Показать ответ
Ответ:
dim10102806
dim10102806
03.03.2021 11:36
(1 + 0)*(0+0) + 1*0
(1 + 0) - истинна, т.к. дизъюнкция истинна если хотя-бы одна из переменных истинна
(0 + 0) - ложна, т.к. обе перменные ложны
(1 + 0)*(0+0) - ложна, т.к. первая скобка истинна, а вторая ложна, а в конъюнкции для истины обе скобки должны быть истинны.
1*0 - ложна, т.к. в конъюнкции обе переменные должны быть истинны.

Для удобства разделил скобками
((1 + 0)*(0+0)) + (1*0) - ложна, т.к. первая (большая) скобка ложна, вторая скобка (1*0) тоже ложна, между ними дизъюнкция, то есть хотя-бы одна из них должна быть истинна. Они обе ложны, значит результатом выражения

(1 + 0)*(0+0) + 1*0 

будет 0
0,0(0 оценок)
Ответ:
9109160145davla
9109160145davla
07.04.2021 17:12
Procedure TForm1.Button1Click(Sender: TObject);
begin
    If FontDialog.Execute then
        RichEdit1.SelAttributes.Assign(FontDialog1.Font);
        RichEdit1.SetFocus;
    End;
end;

делфи у меня не установлены за совершенной ненадобностью, потому проверить возможности нет, но догадки показать могу.
 Не уверенна что RichEdit1.SelAttributes.Assign(FontDialog1.Font) выставляет шрифт, может там нужна кострукция типа
  RichEdit1.SelAttributes.Font := FontDialog1.Font
и конечно описка выделенная ранее, как на нее только компилятор не матерится
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота