1вариант, если можно, то программу не большой, и без лишнего зарание

а я уже не не я тоже не могу понять что ты не можешь быть кукуруз и я тоже хочу к вам не у нас и не ее

ответ:

смотри. я напишу тебе основную суть на python . если не сможешь перевести в паскаль сам, то программирование это не твое.

объяснение:

1)

a = 62

a_1 = a / 10 # получаем первую цифру числа. (6)

a_2 = a % 10 # получаем вторую цифру.

if (a_2 % 2 == 0) and (a_1 % 2 == 0):

    print("число состоит из четных цифр")

else:

print("число состоит из нечетных цифр") #текст заменить на нужный

2) тут сложнее. надо бы попробовать в реале, но мне лень.

a = 2

b = 9

for x in range(a, b) : # это цикл от a до b на пайтоне. суть ты понял.

    print(x)

3)

for x in range(10, 99)

    a = x

    a_1 = a / 10 # получаем первую цифру числа.

    a_2 = a % 10 # получаем вторую цифру.

    if (a_1 + a_2) == (a_1 * a_2):

            print(x)

второй вариант

1)

a = 62

a_1 = a / 10 # получаем первую цифру числа.

a_2 = a % 10 # получаем вторую цифру.

if (a_1 + a_2) > 10:

    print("больше")

else:

  print("меньше")

2 пропущу. ибо оч долго для меня.

3)

for x in range(10, 99)

    a = x

    a_1 = a / 10 # получаем первую цифру числа.

    a_2 = a % 10 # получаем вторую цифру.

    if (a_1 + a_2)   % 2 = 0 :

            print(x)

uses

    crt;

const

    max=50;

var

  a: array[1..max,1..max] of integer;

  i,j,n,s,k: integer;

begin

    writeln('wvedite razmernost matrici');

    readln(n);

    writeln('wvedite matricu ',n,' x ',n);

    for i: = 1 to n do

        begin

              for j: = 1 to n do

                  read(a[i,j]);

        end;

    s: =0;

    k: =0;

    for i: = 1 to n do

        begin

              for j: = 1 to n do

                  if (j mod 2< > 0) and (i mod 2< > 0) then

                    begin

                          s: =a[i,j]+s;

                          k: =k+1

                    end;

        end;

        s: =round(s/k);

        writeln('sredne arifmet znashenie s neshetnimi indeksami ravno ', s);

readkey

end.