Паскаль авс . дана запись d1,состоящая из 3х полей: число , номер месяца, год. определить d2-дату следующего дня
125
327
Ответы на вопрос:
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.
654/(дробь)100 или 6 целых 54/100, что равняется 6 целых 22/50 и 6 целых 11/25
Популярно: Информатика
-
dashadgankozde8z23.05.2023 10:24
-
Markys155521.04.2020 09:35
-
lana205oziu8n01.02.2022 21:57
-
siyashka115.01.2021 16:03
-
nadyamoroz0317.01.2020 14:24
-
bdnhm115.09.2021 16:49
-
p0m41k03.07.2021 09:21
-
Marusya209930.01.2021 03:29
-
blazhenko6603.04.2020 18:38
-
ИванГо22816.12.2020 03:58