Напишите программу в паскале. Дано:

Дан порядковый номер дня года (отсчет идет с 1-го января). Требуется вывести номер дня недели этого дня, если 1 января - понедельник. (Запрещено использовать команду if)

При решении этой задачи нельзя использовать любой из видов условной инструкции if.

Question

Лира

6 ноября, 19:04

+5

Ответы (1)

Знаете ответ?

Мариша · Answer 1

Var n, k:integer;

begin

readln (n) ;

k: = (n-1) mod 7 + 1;

writeln (k) ;

end.

Пример:

29

1