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

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

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

Question

Евдося

30 июля, 13:38

+2

Ответы (1)

Знаете ответ на вопрос?

Роберта · Answer 1

Var n, k:integer;

begin

readln (n) ;

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

writeln (k) ;

end.

Пример:

29

1