Вычисление дня и месяца православной пасхи. про введенному с клавиатуры году вычислить день и месяц празднования православной пасхи в соответствии с ниже алгоритмом. здесь знак % означает взятие остатка от деления, а знак / означает деление без остатка. 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; сделать в паскале
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.