Продолжи: обьект - человек обьект - собака цель - ? у.в - ? с.у - ? результат -? 100

Обобщающий термин кибернетики и теории автоматического управления, обозначающий устройство или динамический процесс, управление поведением которого является целью создания системы автоматического управления. Ключевым моментом теории является создание математической модели, описывающей поведение объекта управления в зависимости от его состояния, управляющих воздействий и возможных возмущений (помех) . Формальная математическая близость математических моделей, относящихся к объектам различной физической природы, позволяет развивать математическую теорию управления вне её связи с конкретными реализациями, а также классифицировать системы управления по формальным математическим признакам (например, линейные и нелинейные) . В теории автоматического управления считается, что управляющее воздействие на объект управления оказывает устройство управления. В реальных системах устройство управления интегрировано с объектом управления, поэтому для результативной теории важно точно определить границу между этими звеньями одной цепи. Например, при проектировании системы управления самолётом, считается, что устройство управления определяет угол отклонения рулей, а математическая модель самолета как объекта управления, должна, с учётом этих углов, определять координаты центра масс и угловое положение самолёта. Уравнения аэродинамики, весьма сложные в общем виде, в ряде случаев могут быть упрощены путем линеаризации, позволяя создать линеаризированную модель системы управления

Цель управления. Научить командам
У. воздействие. Команды
С. управления. Объяснение командам
Результат управления. Собака - обученная командам

Const
  N=2016;
var
  a: array [1..N] of integer;
  i, m, k: integer;
begin
  for i:=1 to N do
    readln(a[i]);
  k:=0;
  for i:=1 to N do begin
    m:=a[i]-516;
    if m>=0 then begin
      if m mod 8=0 then begin
        m:=m div 8;
        if (m - m mod 8) mod 8 = 0 then
          if a[i]>k then k:=a[i]
        end
      end
    end;
  Writeln(k)
end.

Объяснения
Число 1000₁₀ = 1750₈, а минимальное четырехзначное восьмеричное число - это 1000₈ = 512₁₀.
Следовательно, искомые числа лежат на интервале [512;1000] и всегда содержат 1 в старшем разряде своего восьмеричного представления.
Вычтем из исходного числа 512 и тогда можно рассматривать только трехзначные восьмеричные числа.
Трехзначное восьмеричное число в расширенной записи имеет вид
N=abc₈ = (a×8²+b×8¹+c)₁₀ = 64a+8b+c.
По условию с=4, поскольку число должно оканчиваться на 4 в своем восьмеричном представлении.
Мы получили соотношение N-4 = 64a+8b = 8(8a+b), т.е. N-4 должно быть кратно 8. Итак, первый шаг - получить a[i]-516 и если оно не отрицательно, проверить нулевой остаток от деления этой величины на 8. Если это так, полагаем m=(a[i]-4) div 8.
Рассматриваем уравнение m=8a+b. a=(m-b)/8. Понятно, что m-b>0 и a должно быть кратно 8. Что и следует проверить. Если все так и есть - число подходит и следует обычная проверка алгоритма поиска максимума.

Var used: Set of Char;
    s1, s2: string;
    i: integer;
    done: boolean;
    c: char;

function IsLetter(c: char): boolean;
begin
  IsLetter := ((c >= 'a') and (c <= 'z')) or ((c >= 'A') and (c <= 'Z'));
end;

function UpperCase(c: char): char;
begin
  if (c >= 'a') and (c <= 'z') then
    UpperCase := Chr(Ord(c) - Ord('a') + Ord('A'))
  else
    UpperCase := c;
end;

begin
used := [];

readln(s1);
readln(s2);

for i := 1 to length(s1) do
  if (IsLetter(s1[i])) then
    include(used, UpperCase(s1[i]));

for i := 1 to length(s2) do
  if (IsLetter(s2[i])) then
    include(used, UpperCase(s2[i]));

done := False;
for c := 'A' to 'Z' do
  if not (c in used) then
  begin
    done := True;
    write(c);
  end;

if not done then
  write(0);

writeln;
end.