Обозначим дни недели числами от 1 (понедельник) до 7 (воскресенье) соответственно. по известному m — дню недели первого числа текущего месяца — определите день недели числа n. по возможности решите без использования условных операторов и\или циклов. входные данные на вход программе 2 целых числа 1 ≤ n ≤ 31, 1 ≤ m ≤ 7, каждое в отдельной строке выходные данные выведите день недели числа n.

Последовательность дней недели периодична с периодом 7, поэтому номер дня недели можно найти, взяв остаток от деления: (номер дня недели первого числа + сколько Такое решение будет давать верный ответ для всех дней недели кроме воскресенья: для воскресений будет выведен ноль (а не 7). Решить это можно, перенумеровав все номера дней недели с нуля, а не с единицы.

m - 1 – номер дня недели первого числа месяца (считая с 0)
n - 1 – пройдёт от первого числа 
(m + n - 2) mod 7 – номер нужного дня недели (считая с 0)
(m + n - 2) mod 7 + 1 – ответ.

Программа (PascalABC.NET):
begin
  var n := ReadInteger;
  var m := ReadInteger;
  print((m + n - 2) mod 7 + 1)
end.

Пример ввода:
7
7

Пример вывода:
6
(Действительно, 1 апреля 2018 года – воскресенье, а сегодня, 7 апреля – суббота)

оглавление нужно? все равно напишу: Век роботов

Объяснение:

В последнее десятилетие ИИ или же искусственный интеллект стал приобретать всё больше влияние. В развитых странах потихоньку появляются или уже появились роботы. С одной стороны звучит неплохо, человек вступил в новую эпоху эволюции, но с другой стороны, как это обернётся? В первую очередь ИИ создана для того, чтобы облегчить жизнь людей, заменяя их тем что, выполняя всю работу за них. Есть много фильмов про восстания роботов. Может ли повториться один из сценариев фильма в реальности? Возможно. Эти роботы могут дать большой толчок в развитии человека, но есть и главный минус: тотальная слежка. Производители будут ставить скрытые камеры, чтобы отслеживать личную жизнь человека, что ему это не понравится. Такие действия могу привести к тоталитарному режиму по всему миру и не останется свободного пространства для людей. Они не смогут побыть наедине, поговорить лично с кем-то, ведь их всегда будет слышно и видно.

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

1)Язык программирования Pascal создал:

1.Н. Вирт

2.Б. Паскаль

3.М. Фортран

2) Линейная структура построения программы подразумевает

1.Неоднократное повторение отдельных частей программы

2.Последовательное выполнение всех элементов прЛинейная структура построения программы подразумевает

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

3) Команда CLRSCR служит для

1.ожидания нажатия клавиши

2.ввода данных с экрана

3.очистки экрана

4) раздел VAR служит

1.Для описания используемых переменных

2.Для описания величин

3.Для описания выражений

5)Переменные – это:

1.величины, которые могут менять свое значение в процессе выполнения программы

2.величины, которые не могут менять своего значения в процессе выполнения программы

3.обозначают строки программы, на которые передается управление во время выполнение программы

6) целочисленное деление можно выразить следующей функцией:

1.A mod B

2.A div B

3.Abs (A)*B

7) раздел операторов начинается служебным словом:

1.VAR

2.INTEGER

3.BEGIN

8) ввод данных с клавиатуры осуществляется с оператора:

1.WRITE, WRITELN

2.READ, READLN

3.PROGRAM

9)вывод данных на экран осуществляется с оператора:

1.WRITE, WRITELN

2.READ, READLN

3.PROGRAM

10) тип переменных REAL это:

1.целочисленный тип

2.логический тип

3.натуральный тип