Где-то в джунглях стоит ферма слонов. Когда на ферме рождается новый слонёнок, ему дают номер.

Номер состоит из двух частей: какой по очередности рождения был слон в этом году и год, в который он родился. Год всегда занимет 4 цифры.

Пример:

42019 - номер четвёртого слона, родившегося в 2019 году.

С клавиатуры вводятся 4 номера некоторых слонов, живущих на ферме.

Найдите номер самого позднего по порядку рождения слоника, родившегося в 2019 году.

Если среди слонов нет родившегося в 2019, выведите на экран "таких нет".

Формат входных данных
Четыре целых числа: 10'000 < n1, n2, n3, n4 ≤ 1'000'000

Формат выходных данных
Одно число - номер слоника.

входные данные
62013 12017 62014 42016

паскаль

откомпилирован в: pascal abc

program z1; uses crt; var    s: string;     c: char;     i: integer; begin        write('  vvedite strocy:   ');         readln(s);                 writeln();                 write(' vvedite sivol dl poiska:   ');         readln(c);                 writeln();         for i : = 1 to length(s) do         if s[i] = c then //        begin                  writeln(' simvol prinadlech stroce = ', s);                   break;         end;         if s[i] < > c then writeln(' simvola net v stroke = ', s); end.

1)это направление куда будут двигаться все обьекты

2)число равное тому сколько раз исполнитель повторит ваш алгоритм

залить в кувшин 3-х литровый воды до полна,перелить её в кувшин ёмкостью 8 литров.эту операцию проделать 3 раза,тогда в маленьком кувшине останется ровно литр воды.вылить всё из большого,залить туда воду из маленького(это 1 литр),затем залить в большой 3 маленьких и тогда получится 7 литров в большом кувшине.

type array100 = array [1..100] of integer; var x,y: array100; i,n,min,max: integer; begin  randomize;   n: =10;   for i: = 1 to n do begin      x[i]: =random(n*10)- 10*n div 2 ;       write(x[i]: 4);       if i mod 10=0 then writeln;   end;     min: =1;   max: =1;   for i: = 1 to n do begin      if x[i]< x[min] then min: =i;       if x[i]> x[max] then max: =i;   end;   i: =x[min];   x[min]: =x[max];   x[max]: =i;         writeln;   for i: = 1 to n do begin      write(x[i]: 4);       if i mod 10=0 then writeln;   end;   end.