Предмет: Информатика, автор: gyekkkk

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

Ответы

Автор ответа: archery
0
var
  k, n: integer;

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

Ответ 52
Похожие вопросы
Предмет: Математика, автор: goldvladmir2018
Предмет: История, автор: den1234ak47
Предмет: Алгебра, автор: Аноним