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

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

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

Question

Михайла

6 декабря, 15:07

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