Дано целое число k. Определите, каким будет k-й день года: выходным (суббота и воскресенье) или будним (понедельник, вторник, среда, четверг, пятница), если 1 января — понедельник ( На паскале)
program dayofyear; var k: integer; begin write′Введитеномерднягода:′'Введите номер дня года: '′Введитеномерднягода:′; readkkk; if k mod 7 = 5 then writeln′Выходной′'Выходной'′Выходной′; else if k mod 7 = 6 then writeln′Выходной′'Выходной'′Выходной′; else writeln′Буднийдень′'Будний день'′Буднийдень′; end.
program dayofyear;
var k: integer;
begin
write′Введитеномерднягода:′'Введите номер дня года: '′Введитеномерднягода:′;
readkkk;
if k mod 7 = 5 then
writeln′Выходной′'Выходной'′Выходной′;
else if k mod 7 = 6 then
writeln′Выходной′'Выходной'′Выходной′;
else
writeln′Буднийдень′'Будний день'′Буднийдень′;
end.