В месяце апреле 30 дней. 1 апреля - понедельник, 2 апреля - вторник, ...
Написать программу, в которой по введенному с клавиатуры дню месяца (например, 15 или 18) вы должны определить какой это день недели (например, понедельник или четверг).

1

Ответы и объяснения

2013-02-25T23:03:26+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

var n:Integer;

Begin

  read(n);

  if n mod 7 = 0 then

    n:=7

  else n:= n mod 7;

  writeln(n); {выводит номер дня недели}

End.