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

Составить программу на паскале: Сколько вооскресений в 2016 году, если первое воскресение 3 января умоляю, помогите
Гость
Ответ(ы) на вопрос:
Гость
var   k, n: integer; begin   k := 0;   n := 3;   repeat     k := k + 1;     n := n + 7;   until n > 366;   writeln(k); end. Ответ 52
Не нашли ответ?
Ответить на вопрос
Похожие вопросы