за Задача в ПаскалеАБС Определить число полных лет на текущий момент по введенной с клавиатуры дате. 
Но нужно к нему добавить защиту от ввода некорректных данных, т. е. при вводе данных организовать цикл до тех пор, пока не будут выполнены ограничения, накладываемые на значения аргументов. Сам код задачи я сделала. Подскажите со вторым пунктом Очень и нужно. 
var day, month, year, day1, month1, year1 : integer; 
begin 
writeln('Введите сегодняшние день, номер месяца и год через пробел'); 
readln(day, month, year); 
writeln('Введите дату своего рождения (день, номер месяца и год)'); 
readln(day1, month1, year1); 
if month1 month then writeln(year - year1 - 1) 
else if day < day1 then writeln(year - year -1) 
else writeln(year - year1); 
readln;
end.
                Другие вопросы по: Другие предметы
Знаешь правильный ответ?
							за Задача в ПаскалеАБС Определить число полных лет на текущий момент по введенной с клавиатуры дате....
							 
 
Популярные вопросы