Определение даты через 2 дня

[kidi911]

Нужна программа,которая бы рассчитывала число и месяц,который будет послезавтра,если известно сегодняшнее число и месяц в приделах 2009-2010(не високосный год).Программа должна получать C-сегодняшнее число(0<C<32) и М-месяц(0<M<13).
Пример ввода: 20 7
Пример вывода: 22 7

[Serge_Bliznykov]

примерно так:

const DaysInMonth : array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
var C, M : integer;
begin
   Readln(C, M);
   if (M>0) and (M<13) and (C>0) and (C<=DaysInMonth[M]) then begin
     inc(C,2);
     if C>DaysInMonth[M] then begin
        C := C - DaysInMonth[M];
        inc(M);
        if M>12 then M:=1;
     end;
     WriteLn(C,' ',M); 
   end
   else Writeln('Error in unput number (wrong date!)');
   Readln;
end.

[kidi911]

Большое спасибо,все работает,моя проблема была в том,что я никогда не видел,что можно так сравнивать число с елементом масива:

C<=DaysInMonth[M]

Буду знать

[TinMan]

Где-то я видел вот такое решение подобной задачи (на unix sh, правда)

sleep 172800
date

))

[Serge_Bliznykov]

Сообщение от TinMan

sleep 172800
date

:-D
решение, конечно, супер!
Только, коллега, не боитесь, что кто-то это решение воспримет как годное к практическому применению?! )

[TinMan]

дык потому я и не стал его писать сразу, а подождал, пока не появится нормальный ответ ))

Ну и потом - умение шутить и понимать шутки не менее важно, чем программирование. Несданное задание - не такая большая цена за него. Я серьезно )).