Нужно сделать все это в pascal. , кто может пусть дан массив, содержащий даты. каждая дата — это число, месяц, год (см. описание типа data в предыдущем ). найти: a) год с наименьшим номером; б) все весенние даты; в) самую позднюю дату.

160

295

Посмотреть ответы 2

Ответы на вопрос:

mamatatobaba10

Информатика

4,4(59 оценок)

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

zanunkyk

Информатика

4,6(11 оценок)

1кбайт = 1024 байта. 1 байт = 8 бит. получаем соотношение 1 кбайт = 1024х8 = 8192 бита. тогда 30720/8192=3.75 ответ. 3.75 кб

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.