Что будет напечатано в результате работы программы, при k=302? var k, number: integer; begin write('Введите день года: '); readln(k); number := k mod 7; writeln('Номер дня недели: ',number); end.
Ну в общем то, просто выведет остаток от деления k/7, так как mod - отбрасывает целую часть числа.