Автомат получает на вход четырёхзначное десятичное число. новое десятичное число строится по следующим правилам: 1) вычисляются два числа - сумма крайних цифр четырёхзначного числа и сумма средних "цифр" 2)полученные два числа записываются друг за другом в порядке невозрастания (без разделителей) определите, сколько из ниже чисел могут получится в результате работы автомата: 211, 1717, 1817, 1916, 219, 21, 10.. во ответе запишите только количество чисел

В любом числе на выходе

1)первая сумма не должна превышать  максимальную 8+8=16; должна быть чётной

2)вторая сумма не должна превышать  максимальную 9+9=18

419(41+9 или 4+19) нет

1319(13+19)нет

2014(20+14)нет

1811(18+11)нет

1212(12+12)да

205(20+5)нет

322(32+2 или 3+22)нет

294(29+4 или 2+94)нет

55(5+5)нет

3. CREATE TABLE

нужны имя полей и тип их данных, например уникальный ID это id = PRIMARY KEY

текст = text , не пустой текст = TEXT NOT NULL ,

числа = REAL,INT время = DATE и т.д

6. SELECT, FROM, GROUP BY, WHERE, ORDER BY, HAVING

7. SELECT - указывает , что извлекать из таблицы, так же может содержать агрегирующие функции и функции времени такие как EXTRACT, DATE_TRUNC

8. FROM - указывает из какой таблицы извлекать, так же можно указать подзапрос

9. WHERE - указывает какие условия нужны для извлечения , которые указаны в SELECT, не может сравнивать агрегирующие функции , для этого есть HAVING, также может содержать подзапрос

10. GROUP BY - групирует по .., HAVING - то же самое , что WHERE , только для агрегирующих функций

11. ORDER BY - использует методы ASC(по возрастанию значений) пример - имя_поле ASC, или DESC(по убыванию значений) - имя_поля DESC

Объяснение:

Будут вопросы напиши в коменты(

const n=100;

m=100;

var A: array[1..n,1..m] of integer;

i,j,maxi,maxj,k: integer;

begin

randomize;

for i := 1 to n do begin

    for j := 1 to m do begin

        A[i,j] := random(100);

    end;

end;

maxi := 1;

maxj := 1;

for i := 1 to n do begin

    for j := 1 to m do begin

        if (A[i,j] > A[maxi,maxj]) then begin

            maxi := i;

            maxj := j;

        end;

    end;

end;

k := 0;

for i := 1 to n do begin

    for j := 1 to m do begin

        if (A[i,j] == A[maxi,maxj]) then k := k + 1;

    end;

end;

writeln('k = ', k);

end.