Question

Определить число воскресений в 2000 году первое воскресенье 2-го января.
ПАСКАЛЬ!!! ПОМОГИТЕ ПЖ ДАЮ 100 Б!!!

Answer 1

Ответ:

53

Объяснение:

program DimaStep;

const n = 366; // общее количество дней в 2000 году

var summa, k: Integer;

begin

write('Определить число воскресений в 2000 году первое воскресенье 2-го января.');

summa := 2; // общее количество дней

k := 0; // количество воскресений

while (summa <= n) do

begin

 k := k + 1;

 summa := summa + 7;

end;

write('Количество воскресений в 2000 году равно ', k);

readln;

end.