Question

Вычисление дня и месяца православной пасхи. про введенному с клавиатуры году вычислить день и месяц празднования православной пасхи в соответствии с ниже алгоритмом. здесь знак % означает взятие остатка от деления, а знак / означает деление без остатка. a = year % 4; b = year % 7; c = year % 19; d = ( 19 * c + 15 ) % 30; e = ( 2 * a + 4 * b - d + 34 ) % 7; f = 3 + (d + e + 21) / 31; g = ( d + e + 21 ) % 31; month = f; day = g + 1; сделать в паскале

Answer 1

var year,month,day,a,b,c,d,e,f,g: integer;

begin

readln(year);

a := year mod 4;

b := year mod 7;

c := year mod 19;

d := ( 19 * c + 15 ) mod 30;

e := ( 2 * a + 4 * b - d + 34 ) mod 7;

f := 3 + (d + e + 21) div 31;

g := ( d + e + 21 ) mod 31;

month := f;

day := g + 1;

writeln(day,' ',month);

end.