Question

Дано целое число k (1 ≤ k ≤ 365). Присвоить целочисленной величине n значе- ние 1, 2, ..., 6 или 0 в зависимости от того, на какой день недели (понедельник, вторник, ..., субботу или воскресенье) приходится k-й день года, в котором 1 января: а)понедельник. б)вторник. Язык програмирования : Pascal.

Answer 1

A)

program dengoda1;

var k, n:Integer;

begin

ReadLn(k);

n:=(k mod 7);

WriteLn(n)

end.

Б)

program dengoda2;

var k, n:Integer;

begin

ReadLn(k);

n:=(k mod 7)+1;

if (n=7)then

n:=0;

WriteLn(n)

end.

Answer 2

Вот пример кода на языке Pascal, который решает задачу:

pascalCopy code
program DayOfWeek;
var
  k, n: integer;
begin
  writeln('Введите номер дня в году (k): ');
  readln(k);

  n := (k - 1) mod 7; // Определяем остаток от деления (k - 1) на 7

  writeln('День недели (n): ');

  case n of
    0: writeln('Воскресенье');
    1: writeln('Понедельник');
    2: writeln('Вторник');
    3: writeln('Среда');
    4: writeln('Четверг');
    5: writeln('Пятница');
    6: writeln('Суббота');
  end;
  
  readln;
end.

Программа запрашивает у пользователя номер дня в году (k) и затем вычисляет остаток от деления этого числа на 7. Затем, используя оператор case, программа определяет соответствующий день недели (n) и выводит его на экран.

Например, если пользователь вводит значение k = 74, программа выводит "Пятница", так как 74-й день года будет пятницей.