Обозначим дни недели числами от 1 (понедельник) до 7 (воскресенье)...

0 голосов
75 просмотров
Обозначим дни недели числами от 1 (понедельник) до 7 (воскресенье) соответственно.Известно, что первое число текущего месяца поподает на понедельник.
На вход программе подается целое число 1<n<31. Выведите номер дня недели числа n. Подсказка: это задача на деление.

Информатика (30 баллов) | 75 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

Var n: integer;
begin
readln(n);
n:=n mod 7;
if n=0 then writeln(7) else writeln(n);
readln;
end.

(797 баллов)