Обозначим дни недели числами от 1 (понедельник) до 7 (воскресенье) соответственно. Известно, что первое число текущего месяца поподает на понедельник.

На вход программе подается целое число 1

Question

Венедимыч

16 ноября, 11:29

+3

Ответы (1)

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

Леонинка · Answer 1

Var n: integer;

begin

readln (n) ;

n:=n mod 7;

if n=0 then writeln (7) else writeln (n) ;

readln;

end.