Напишите программу в паскале. Дано: Дан порядковый номер дня года (отсчет идет с 1-го января). Требуется вывести номер дня недели этого дня, если 1 января — понедельник. (Запрещено использовать команду if) При решении этой зада...
Напишите программу в паскале. Дано:
Дан порядковый номер дня года (отсчет идет с 1-го января). Требуется вывести номер дня недели этого дня, если 1 января — понедельник. (Запрещено использовать команду if)
При решении этой задачи нельзя использовать любой из видов условной инструкции if.
Гость
Ответ(ы) на вопрос:
Гостьvar n,k:integer;
begin
readln(n);
k:=(n-1) mod 7 + 1;
writeln(k);
end.
Пример:
29
1
Не нашли ответ?
Похожие вопросы