Есть ответ 👍

4. Опиши действия робота который выполняет эту программу​

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

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


имм

Объяснение:


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

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

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

Caktus Image

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

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

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

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

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

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

Подпишись на наш телеграмм канал

GTP TOP NEWS