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

Вконце трудного рабочего дня три честных грабителя решили поделить выручку за день. в их распоряжении находятся n одинаковых алмазов. в соответствии с «кодексом грабителей» младшему грабителю должно достаться на один алмаз меньше, чем среднему по возрасту, а среднему — на один алмаз меньше, чем самому старшему. возможен ли такой дележ? в случае положительного ответа найдите соответствующую тройку чисел. допустимо, что грабитель получит 0 алмазов. примеры входные данные 9 выходные данные 2 3 4 входные данные 7 выходные данные -1

👇
Ответ:
ggwp49
ggwp49
23.12.2021
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

begin

 var a := ReadInteger('n=');

 Println(a mod 3 = 0 ? $'{a/3-1} {a/3} {a/3+1}' : '-1')

end.


Пример(1):

6

1 2 3

Пример(2):

5

-1  

4,5(77 оценок)
Открыть все ответы
Ответ:
Maxbys
Maxbys
23.12.2021

При определении значений подобных функций переменная y вычисляется по-разному (по разным формулам) в зависимости от значения x.

Такие задачи решаются с конструкции условного оператора if - else. Поскольку в данном случае мы имеем три условия (x > 0, x = 0 и x < 0), то потребуется использование еще вложенной конструкции if - else, т. к. в языке Pascal нет оператора множественного ветвления (оператор case в данном случае не подходит).

В языке программирования Паскаль (да и в других тоже) желательно вложенные конструкции if - else помещать во внешнюю ветку else, а не if. Так проще не запутаться.

Таким образом, алгоритм вычисления значения функции может быть таким:

Если x > 0, то у = x - 2

Иначе (ниже идет вложенная конструкция)

Если x = 0, то y = 0

Иначе y = |x|.

В последнем пункте можно опустить оператор if с проверкой, что x < 0, так как если ход выполнения программы дошел до этого пункта, то x уже другим быть и не может (варианты, когда он больше или равен нулю, уже были исключены).

Для определения модуля (абсолютного значения) переменной можно использовать встроенную функцию abs() языка Pascal. В данном случае можно обойтись и без нее: поскольку уже известно, что x отрицателен, то, чтобы получить положительное число (модуль), нужно его умножить на -1.

var

   x, y: integer;

 

begin

   write ('x = ');

   readln (x);

 

   if x > 0 then

       y := x - 2

   else

       if x = 0 then

           y := 0

       else

           y := abs(x);

 

   writeln ('y = ', y);

 

end.

Объяснение:

4,5(92 оценок)
Ответ:
tanya200525
tanya200525
23.12.2021

Кликните по любому месту диаграммы, для которой хотите создать название.

Когда диаграмма будет выделена, на Ленте появится группа вкладок Работа с диаграммами (Chart Tools). Эти вкладки видны только, когда диаграмма выделена (вкладки имеют цветной фон).

В Excel 2013 в группу вкладок Работа с диаграммами (Chart Tools) входят вкладки Конструктор (Design) и Формат (Format).

Названия диаграмм и осей Excel

Перейдите на вкладку Конструктор (Design).

В разделе Макеты диаграмм (Chart Layouts) откройте выпадающее меню Добавить элемент диаграммы (Add Chart Element).

В Excel 2010 Вам потребуется раздел Подписи (Labels) на вкладке Макет (Layout).

Кликните Название диаграммы (Chart Title) и выберите позицию для размещения названия. Excel предлагает на выбор две позиции:

Над диаграммой (Above Chart) – в этом случае диаграмма будет незначительно уменьшена;

По центру (Centered Overlay) – так название будет расположено непосредственно на диаграмме в самом верху, а размер диаграммы не изменится.

Названия диаграмм и осей Excel

Кликните по полю названия.

Выделите слова “Название диаграммы” и введите нужное название.

Объяснение:

4,6(45 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ