отчётная задача

[darkkhan]

С начала 2000 года по некоторый день прошло n месяцев и m дней. Определить название месяца этого дня.


ПРОШУ ПОМОЧЬ!!!!

[Hacker19_90]

Как то так! (Писал с потолка)

n :=n + (m div 31);
if n > 12 then
    n := n mod 12;
case n of
    0: Writeln ('Январь');
    1: Writeln ('Февраль');
    2: Writeln ('Март');
    3: Writeln ('Апрель');
    4: Writeln ('Май');
    5: Writeln ('Июнь');
    6: Writeln ('Июль');
    7: Writeln ('Август');
    8: Writeln ('Сентябрь');
    9: Writeln ('Октябрь');
    10: Writeln ('Ноябрь');
    11: Writeln ('Декабрь');
end;

[Serge_Bliznykov]

darkkhan, Вы что, издеваетесь?!


А эту тему
Определить название месяца этого дня.
кто создавал?!!


Кросс-пост.
закрыто.