Составить программу на паскале:

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

умоляю, помогите

Question

Исаакин

8 сентября, 19:22

+1

Ответы (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 январяумоляю, помогите