Регистрация
yashchenko04
21.01.2021 21:59
Информатика
Есть ответ 👍

Задания по информатике ​

224
301
Посмотреть ответы 1

Ответы на вопрос:

Tesckep
Tesckep
4,6(26 оценок)
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.

Популярно: Информатика