Дано целое число k (1 ≤ k ≤ 365). Присвоить целочисленной величине n значе- ние 1, 2, ..., 6 или 0 в зависимости от того, на какой день недели (понедельник, вторник, ..., субботу или воскресенье) приходится k-й день года, в котором 1 января: а)понедельник. б)вторник. Язык програмирования : Pascal.
program DayOfWeek;
var k, n: integer;
begin
n := (k + 1) mod 7;write('Введите номер дня года (от 1 до 365): ');
readln(k);
if n = 0 then
n := 7;
writeln('День недели (1 - ПН, 2 - ВТ, ..., 7 - ВС): ', n);
end.