Основные самые важные признаки объекта 12 букв начинается на с.

Совокупность. я думаю, что так.мы записывали это в тетради.надеюсь, что : з

Отдел +; использует вывод из ""; пост   a = 5;   b = 10; пер   c, v: цел; указ   c : = 16;   пока c > = 3 вып     v : = a * b * c;     вывод.чцел("%d; ", v, 0, 0, 0);     уменьшить(c, 1)   кон;   c : = 16;   повторять     v : = a * b * c;     вывод.чцел ("%d; ", v, 0, 0, 0);     уменьшить(c, 1)   до c < 3;   от c : = 16 до 3 по -1 вып     v : = a * b * c;     вывод.чцел ("%d; ", v, 0, 0, 0)  кон кон .    

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