Type date = record day: 1..31; month: 1..12; year: integer ; end; var a: date : = (day: 8; month: 7; year: 2012); b: date : = (day: 6; month: 7; year: 2012); c: integer; procedure outdate(d: date); begin with d do writeln(day, '.', month, '.', year); end; begin if a.year > b.year then c: =1 else c: =-1 ; if a.year = b.year then if a.month > b.month then c: =1 else c: =-1; if a.year = b.year then if a.month = b.month then if a.day > b.day then c: =1 else c: =-1; if a.year = b.year then if a.month = b.month then if a.day = b.day then c: =0; outdate(a); outdate(b); writeln('otwet: ', c); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Какой тип переменной может использоваться для значений 5, 8, 32, 56