Определите день недели числа n

@Киррра · Регистрация: 14.11.2011

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

valeriikozlov · 03.04.2012, 11:21

Pascal

var n:integer;
begin
read(n);
writeln((n-1) mod 7 +1);
end.

@Киррра 0 / 0 / 0 Регистрация: 14.11.2011 Сообщений: 19
		1
	Определите день недели числа n 02.04.2012, 16:44. Показов 2576. Ответов 1 Метки нет (Все метки) Обозначим дни недели числами от 1( понедельник) до 7( воскресенье) соответственно. Известно,что первое число текущего месяца попадает на понедельник.Определите день недели числа n.На вход программе подаются 1 целое число 1<n<31.Выведите день недели числа n 0

Опции темы

Определите день недели числа n

Решение