Question

Напишите на pascal Задача 1: Отпуск Иван Петрович взял отпуск продолжительностью n дней. Первый день отпуска выпадает на день недели под номером d (1 — понедельник, 2 — вторник, ..., 7 — воскресенье). Иван Петрович любит ездить отдыхать на Кипр. Но вылеты на Кипр из его родного города есть только по понедельникам, а обратно — только по воскресеньям. Иван Петрович хочет понять, какое максимальное количество недель он сможет провести на Кипре в свой отпуск (день прилёта и день обратного вылета Иван Петрович считает днями, проведёнными на Кипре). Помогите ему вычислить это. Входные данные В первой строке входных данных записано целое число n (1 ≤ n ≤ 109) — продолжительность отпуска. Во второй строке записано целое число — d (1 ≤ d ≤ 7) — номер дня недели первого дня отпуска. Выходные данные Требуется вывести одно целое число — количество недель, которое Иван Петрович проведёт на Кипре.

Answer 1

Ответ:

program t1;

var

 n,a,res:integer;

begin

 readln(n, a);

 if a > 1 then

  a:=1-a+7

 else

  a:=0;

 res:=(n-a) div 7;

 write(res);

end.

Объяснение:

Answer 2

Вот решение задачи на языке Pascal:

pascalCopy code
program Vacation;

var
  n, d, weeks: integer;

begin
  // Чтение входных данных
  readln(n);
  readln(d);
  
  // Вычисление количества недель
  weeks := (n - 8 + d) div 7 + 1;
  
  // Вывод результата
  writeln(weeks);
end.

Программа считывает продолжительность отпуска n и номер дня недели первого дня отпуска d. Затем она вычисляет количество недель, используя формулу (n - 8 + d) div 7 + 1. Формула (n - 8 + d) вычисляет общее количество дней на Кипре (исключая первый и последний день отпуска), а (n - 8 + d) div 7 определяет количество полных недель. Прибавление 1 учитывает первую неделю.

Например, если n = 20 и d = 3, то программа выведет значение 2, что означает, что Иван Петрович сможет провести 2 недели на Кипре в свой отпуск.