Как называется командный язык Linux? Каков формат команды? Привести пример.

Известно, что при копировании формулы в другую ячейку диапазон (формулы) соответственно перемещается по направлению целевой ячейки. У нас группа в 4 смежных ячейки — 2 выше, 2 ниже.

Зная тот факт, что формула изначально находится в столбце В, а переместить ее по горизонтали можем только в столбец А, то есть на 1 влево, следовательно, диапазон формулы никак не достанет до C. Исключаем столбец С полностью в последующем анализе.

Знаем, что новая сумма диапазона рана 145, значит, можем сразу исключит ряды, которые точно не дадут со смежными эту сумму, т.е. ряды, куда формула не может быть скопирована.

Это ряд 1, т.к. диапазон, при помещении формулы в ячейку A1 или B1, сместиться за рамки таблицы и будет занимать всего две ячейки, что будет недостаточно для набора значения в 145.

Это ряд 6  — по той же причине: диапазон с рядом 5 не даст нужную сумму.  

Посмотрим, что же еще число 145 может нам о себе рассказать... А то, что оно кратно 5, то есть, мы должны отбросить групы, а вместе с ними и ряды, которые нам ни при каких условия не датут суммы диапазона кратностью 5.

Это ряд 2 — ни одна группа с 1-м рядом не даст на числа, кратного 5.

Это ряд 3 — ни одна группа со 2-м рядом не даст на числа, кратного 5.

Это ряд 4 — по той же причине: ни одна группа с 3-м рядом не даст на числа, кратного 5.

Оказывается, кратность числа 145 много чего нам о себе рассказала.

Методом исключения мы сузили наше поле зрения до минимума — до ряда 5. Осталось или посчитать сумму или, опять же, посчитать кратность. Если диапазон формулы сместится от изначального влево, значит ячейка будет скопирована в столбец А5, иначе — в B5.

Наш ной диапазон формулы:  D4:E5 — смещение таки произошло, следовательно, копирование будет выполнено в ячейка А5.

П.С. Сори за простыню текста. Сложно свои размышления передать письменно, чтобы было всё понятно.

var  x, n: integer;  n1: real; begin  Writeln('Введите число: ');  Read(x);  if (x > 9) and (x < 100) then  begin    n := (x div 10) + (x mod 10);    Writeln('Сумма цифр равна: ', n);  end;  if (x > 99) and (x < 1000) then  begin    n := (x div 100) * ((x div 10) mod 10) * (x mod 10);    Writeln('Произведение цифр равно: ', n);  end;  if (x > 999) and (x < 10000) then  begin    n := x div 1000 + (x div 100) mod 10 + (x div 10) mod 10 + x mod 10;    n1 := n / 4;    Writeln('Среднее арифметическое равно: ', n1);  end;  if x > 9999 then  begin    Writeln('Введите 2-х, 3-х или 4-х значное число');  end; end.