Question

Паскаль АВС . Дана запись d1,состоящая из 3х полей: число , номер месяца, год. Определить d2-дату следующего дня

Answer 1

Program 1123;
type data = record     g: 0..3000;     mes: 1..12;     day: 1..31;     end;
var d1,d2:data;begin writeln('Введите дату через пробел(число, месяц, год)');readln(d1.day,d1.mes,d1.g);
d2:=d1;d2.day:=d1.day+1;with d2 do case mes of 1,3,5,7,8,10: begin               if day=32 then begin mes:=mes+1; day:=1; end;              end;
4,6,9,11: begin            if day=31 then begin mes:=mes+1; day:=1; end;          end;2: begin     if g mod 4=0 then begin                        if day=30 then begin mes:=mes+1; day:=1; end; end                 else begin                        if day=29 then begin mes:=mes+1; day:=1; end;                       end;
 end;
12: begin     if day=32 then begin g:=g+1; mes:=1; day:=1; end;    end;end;writeln('Следующий день ',d2.day,'.',d2.mes,'.',d2.g);end.