Ответы на вопрос:
Const nn=50; type data = record number : 1..31; month : 1..12; year : 1901..1997 end; var d: array[1..nn] of data; i,n,k: integer; s,s1,s2,s3: string; begin write('количество дат (1..50)-> '); read(n); writeln('введите через пробел день, месяц, год: '); for i: =1 to n do read(d[i].number,d[i].month,d[i].year); { a } write('самый ранний из годов: '); k: =d[1].year; for i: =2 to n do if d[i].year< k then k: =d[i].year; writeln(k); { б } writeln('все весенние даты'); for i: =1 to n do if d[i].month in [3..5] then write(d[i].number,'.',d[i].month,'.',d[i].year,' '); writeln; { в } write('cамая поздняя дата: '); str(d[1].year,s1); str(d[1].month,s2); str(d[1].number,s3); if length(s2)=1 then s2: ='0'+s2; if length(s3)=1 then s3: ='0'+s3; s: =s1+s2+s3; for i: =2 to n do begin str(d[i].year,s1); str(d[i].month,s2); str(d[i].number,s3); if length(s2)=1 then s2: ='0'+s2; if length(s3)=1 then s3: ='0'+s3; if s< s1+s2+s3 then s: =s1+s2+s3 end; writeln(copy(s,7,2)+'.'+copy(s,5,2)+'.'+copy(s,1,4)) end. тестовое решение: количество дат (1..50)-> 6 введите через пробел день, месяц, год: 18 4 1950 16 5 1968 5 8 1970 3 9 1968 11 6 1964 16 12 1967 самый ранний из годов: 1950 все весенние даты 18.4.1950 16.5.1968 cамая поздняя дата: 05.08.1970
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
tarnopolska9931.12.2020 19:44
-
Ann412103.11.2020 06:09
-
letujio07.03.2020 05:31
-
vidana302.09.2020 15:57
-
zepoo21.02.2020 18:43
-
onkyyyyyyy26.04.2020 11:39
-
norbyss3206.01.2021 14:23
-
pwgamerproyt28.03.2022 19:48
-
narik222208.06.2021 08:25
-
annaobryv86110.04.2023 02:08
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.