Задать вопрос
26 мая, 07:17

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

+4
Ответы (1)
  1. 26 мая, 09:45
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Паскаль АВС. Дана запись d1, состоящая из 3 х полей: число, номер месяца, год. Определить d2-дату следующего дня ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы