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

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

+3
Ответы (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-дату следующего дня ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Задание 1. Ввести номер месяца и вывести количество дней в нем, а также число ошибок при вводе. Пример: Введите номер месяца: -2 Введите номер месяца: 11 В этом месяце 30 дней. Вы вводили неверно 1 раз. Задание 2.
Ответы (1)
Ввести слово и число раз (Ввод; паскаль, 3). Вывести это слово так: паскаль паскаль паскаль паскаль паскаль паскаль
Ответы (1)
Известны год и номер месяца рождения человека, а также год и номер месяца сегодняшнего дня (январь - 1 и т. д.). Определить возраст человека (число полных лет). В случае совпадения указанных месяцев считать, что прошел весь год. Паскаль.
Ответы (1)
Ввести номер месяца и номер дня вывести число дней оставшихся до нового года. В C++ Например: Номер месяца 12 Номер дня 25 Кол-во оставшихся дней 6
Ответы (1)
Помгите! Программа Паскаль Вопрос 1. Функция служебного слова Var. Вопрос 2. С какими числами можно работать в программе Паскаль? Вопрос 3. Оператор ввода. Как он записывается в Паскаль? Вопрос 4. Функция служебного слова Const. Вопрос 5.
Ответы (1)