Въвеждане на валидна дата

2 Responses to Въвеждане на валидна дата

1. yvonne каза:

   09 май, сряда в 08:45

   program Calendar;

   var
   data, mesec, godina:integer;
   begin
   Write(‘Vavedete data:’);
   Readln(data);
   case(data)of
   1..31:Writeln(‘Datata e validna!’)
   else Writeln(‘Nevalidna data:(‘)
   end;
   Write(‘Vavedete mesec:’);
   Readln(mesec);
   case(mesec)of
   1..12:Writeln(‘Validen mesec!’)
   else Writeln(‘Nevaliden mesec:(‘);
   end;
   Write(‘Vavedete godina:’);
   Readln(godina);
   if godina>0 then Writeln(‘Validna godina!’)
   else Writeln(‘Nevalidna godina:(‘);
   Readln;
   end.

   Влезте, за да отговорите
   • Данаил каза:

     11 май, петък в 08:46

     Вярно е, но условието на задачата е да ни позволи въвеждане на датата повече от веднъж, докато не въведем коректна дата.

     Влезте, за да отговорите