Составить программу по задаче:

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

Question

Гошуля

14 декабря, 17:20

+5

Ответы (1)

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

Мишута · 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

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