Составить программу определения дня недели по номеру дня года. считая, что 1 января-...

Question

Составить программу определения дня недели по номеру дня года. считая, что 1 января- понедельник.

Answer 1

Var
 n:integer;
begin
  readln(n);
  n:=n mod 7;
  if n=1 then
   writeln('Понедельник');
  if n=2 then
   writeln('Вторник');
  if n=3 then
   writeln('Среда');
  if n=4 then
   writeln('Четверг');
  if n=5 then
   writeln('Пятница');
  if n=6 then
   writeln('Суббота');
  if n=7 then
   writeln('Восресенье');
end.