2карточки пронумеровали числами 1 и 2, перевернули, перемешали и подписали буквами a и b. напишите функцию get_b(a) (здесь a это число на первой карточке), которая возвращает число на карточке b. (если что это программирование на к языке питон) def get_b(a); return

Для начало поймем что должна делать функция

если вводиться 1 возвращать 2

если вводиться 2 возвращать 1 (или иначе возвращать 1)

напишем код

def get_b(a):

   if a == 1:

       return 2

   else: # else не обязателен, т.к. return прекращает выполнение

           # функции, но для большей понятности проги он нам нужен

       return 1

#теперь простая проверка функции (ответ у нас уже есть)

print ("если а = 1, б =", get_b(1))

print ("если а =2, б =", get_b(2))

P.S. вопросы в коменты

Const
 n=10;

type
 MyArr=array[1..10] of integer;

var ar:MyArr;
ar2:MyArr;
i,k:integer;

procedure SortMin(var a: MyArr;n:Integer);
var i,j,x:integer;
begin;
 for I:=1 to n do
  for j:=1 to n-1 do
    if a[j]<a[j+1] then
      begin
        x:=a[j+1];
        a[j+1]:=a[j];
        a[j]:=x;
        end;
end;

begin;
randomize;
k:=0;
writeln('First array:');
for i:=1 to 10 do
 begin;
  ar[i]:=random(100);
  write(ar[i]:4);
  if (ar[i]>10) and (ar[i] mod 3=0) then
   begin;
    inc(k);
    ar2[k]:=ar[i];
   end;
 end;
if k=0 then
 begin;
  writeln('Нет подходящих элементов');
  exit;
 end;
SortMin(ar2,k);
writeln;
writeln('Final array:');
for i:=1 to k do
write(ar2[i]:4);
end.

Function ds(ByVal n As Integer) As Integer
    'Сумма цифр в числе n
    Dim s As Integer
    s = 0
    Do While n <> 0
        s = s + n Mod 10
        n = Int(n / 10)
    Loop
    ds = s
End Function

Function IsGood(n As Integer) As Boolean
    'Сохраняется ли сумма цифр при умножении числа на 2,3,..9 ?
    Dim etalon As Integer, k As Integer
    etalon = ds(n)
    IsGood = True
    k = 2
    Do While IsGood And k < 10
        IsGood = (ds(n * k) = etalon)
        k = k + 1
    Loop
End Function

Sub aaa()
    Dim i As Integer, s As String
    s = ""
    For i = 10 To 99
        If IsGood(i) Then s = s + Str(i)
    Next i
    MsgBox s
End Sub

Тестовое решение:
18 45 90 99