определить время года..., 2 простых задачи Опции

[Sahsok]

1) Нужно написать программу,которая по введённой дате определяет время года, корректо, т.е. не должно быть 29 февраля в не высокосный год и т.д.
2)Нужно составить программу которая выводит на экран в обратном порядке символы английского языка из таблицы ASCII.

Просто времени нет, с учёбой напряги. Пожалуйста с описаниями подмогите.

Сообщение отредактировано: Sahsok - 9.10.2004 20:16

[Amro]

Тагды можно сделать так:

Код

   uses crt;
   const Mes:array[1..12] of String[8]=
             ('Январь','Февраль','Март','Апрель','Май','Июнь','Июль',
              'Август','Сентябрь','Октябрь','Ноябрь','Декабрь');

   const Den:array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
   var Day,Month,Year:integer;
   label 1;
   begin
   clrscr;
   write('Year='); readln(Year);
   if ((Year mod 4)=0) and ((Year mod 100)<>0) or ((Year mod 400)=0)  then
   Den[2]:=29
   else
   Den[2]:=28;
      write(' Month='); read(Month);
      if (Month>12) or (Month=0) then begin writeln('Ошибка'); goto 1; end;
      write(' Day='); read(Day);
      if (Day>Den[Month]) or (Day=0) then begin writeln('Ошибка'); goto 1; end;
      writeln(Mes[Month]);
 1:   readkey;
   end.

Врямя года сам напишешь :yes: