Question

Составить программу по задаче:
Сколько воскресений в 2016 году, если первое воскресение 3 января.

Answer 1

var
  k, n: integer;

begin
  k := 0;
  n := 3;
  repeat
    k := k + 1;
    n := n + 7;
  until n > 366;
  writeln(k);
end.

Ответ 52

Answer 2

53 было бы если бы воскресение было 1 или 2 днем в году