Var
N, a1, a2, a3, min, max: integer;
begin
readln(N);
N := abs(N);
a1 := N mod 10; //в а1 хранится разряд единиц введённого числа
N := N div 10; //"стираем" в N последнюю цифру
a2 := N mod 10; //в а2 хранится рязряд десятков числа N
N := N div 10;
a3 := N mod 10; //в а3 хранится рязряд сотен числа N
//-------------------------
//поиск минимума из цифр. в переменной мин
//хранится наименьшее число на данном шаге.
min := a1;
if a2 < min then
min := a2;
if a3 < min then
min := a3;
//---------------------------
//поиск максимума
max := a1;
if a2 > max then
max := a2;
if a3 > max then
max := a3;
//--------------------------
writeln('min - ', min, ' max - ', max);
end.
Самое 1 не подходит , ибо остальные это продукты майкрософт офис, 2 для презентаций, 3 это ворд для текстовых документов , а 4 это для работы с базой данных
1) A = 81
G = 6
2) H = 13
L = 21
3)
1. параметру G присваиваются значения от 10 до 6, при каждом из значений параметр A меняет свое значение по формуле, в итоге получаются следующие значения:
A = 21 G = 10
A = 39 G = 9
A = 55 G = 8
A = 69 G = 7
A = 81 G = 6
2. Пока параметр H ≤ 12 параметры L и H меняют свои значения по формулам, в итоге получаются следующие значения:
H = 1 L = 0
H = 5 L = 3
H = 9 L = 10
H = 13 L = 21
4) фотографии 1 и 2
5) фотографии 3 и 4
Получается следующее уравнение при вашем условии:
<span>E8=$А$5*В5</span>
