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