Проверка на ведение даты — Pascal(Паскаль)

program b2;

var m,t:integer;
begin write('введите число:');
      readln(t);
      write('введите месяц:');
      readln(m);
      if (((m=1) or (m=3) or (m=5) or (m=7) or (m=8) or (m=10) or (m=12))and
         (t>=1)and(t<=31))or
         (((m=4) or (m=6) or (m=9) or (m=11))and(t>=1)and(t<=30))or
         ((m=2)and(t>=1)and(t<=29))
         then writeln('Дата введена правильно')
         else writeln('Дата введена не правильно');
end.

Leave a Comment