Дано описание массива: vara:array[1..n]ofinteger;

Выбери, какие элементы массива подходят.

среда четверг суббота
−4.31.3
−7−34

1) 144 - это 12². Следующий квадрат - это 13²=169 и из 169 мы никак не получим за 4 вычитания двоек число 144. Поэтому последняя команда - это 1 (возведи в квадрат).
2) Теперь из 2 надо получить 12 не более, чем за 4 команды. Если 2 возвести в квадрат, получим 4 и этого мало, поэтому возведем 4 еще раз в квадрат, получив 16. Два подряд вычитания двоек как раз дадут 12.
3) Решение
1 (возведи в квадрат) - получаем 4
1 (возведи в квадрат) - получаем 16
2 (вычти 2) - получаем 14
2 (вычти 2) - получаем 12
1 (возведи в квадрат) - получаем 144

ответ: 11221

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Приём ИЗ "...\Отделы\Обмен\", Вывод ИЗ "...\Отделы\Обмен\";

ПЕР
  N, сумма, сч, скор, макс: ЦЕЛ;

УКАЗ
  сумма := 0;
  макс := 0;
  Вывод.Цепь("Введите число автомобилей: ");
  N := Приём.Число();
  ЕСЛИ N < 1 И N > 30 ТО Вывод.Цепь("^Ошибка.") ИНАЧЕ
    Вывод.Цепь("^Введите скорости:^");
    ОТ сч := 1 ДО N ВЫП
      скор := Приём.Число();
      ЕСЛИ N < 1 И N > 300 ТО Вывод.Цепь("^Ошибка."); СТОП(0) КОН;
      УВЕЛИЧИТЬ(сумма, скор);
      ЕСЛИ скор > макс ТО макс := скор КОН;
      Вывод.Цепь(" ")
    КОН
  КОН;
  Вывод.ЧВещ("^Средняя скорость: %.1f.^", сумма / N, 0, 0, 0);
  ЕСЛИ макс >= 60 ТО Вывод.Цепь("YES") ИНАЧЕ Вывод.Цепь("NO") КОН

КОН Задание.